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ちっ ご 稀 の 訪 を し 大 = 


分 野 を 問わ ず 、 既存 に こだわ ら な いも の を 創り 出す こと は 
た い へ ん な 苦労 を と も な う も の で て です 傑出 し た 創意 と 情熱 、 
その プロ ダク ツ に 対す る 将来 的 な 展望 。 机上 上 で の 設計 
は 、 な る ほど 簡単 か も 知れ ませ ん が 、 そ れ を 世に 問う 場合 
の 貴 任 の 重大 き は 並々 な ら ぬ も の で す 。E り わけ パー ソナ 
ルコ ンピュータ の 分 野 で は 、 必 然 的 に ソフ トウ ェ ア の 資産 
が 問わ れ 、 ハ ー ド ウェ ア が 一 人 歩き する こと な ど 、 カ か な わ 
な い の が 現状 で し た 。 信 、 きか ん に と り ざ だ た され て いる 、 
いわ ゆる コン パチ フル 路線 も 、 ま る に る うし た 市 場 環境 が 
生み 出し た 産物 で し ょ う 

X68000 が 登場 し て 人 ヶ月 、 ソ フト ウェ ア 面 で は ほぼ 10022 
白紙 の 状態 で 世に 問わ ざる を 得 な か っ た この マシ ン が 、 
これ ほど まで に 熱い ご 支持 を い た どい た こと に 、 ユ ー ザ ー 
各位 に 心から 感謝 する と と も に 、 開 発 当 初 より 5 年 先 を 見 


つめ て きた る の 思想 に 意 を 強 《 す る 5 の で もそ し て 今 、 こ の 


マシ ン の ポテ ン シ ャ ル に ふる わし い ソ フト ウェ ア の 登場 で 、 


また 新た な 局面 を 迎え よう と し て いま す 。 次 の ステ ッ プ へ 、 
X68000 は さら に 飛躍 し て ゆき ます 。 


@ 実装 密度 を 追求 し た フォ ルム 一 新 の マン ハッ タン シェ イプ @ 広く 
リニア な アド レス 空間 、 68000 搭 載 @ テ キス ト 、 グラ フィ ッ ク 、 ス プラ 
イト 、 独 立 3 画 面 設計 、2M バ イト の 大 容量 メモ リ ぁ フレ ンド リー 0S、 
Human 68k 搭 載 @ 連 文節 変 換 、 マ レル チ フォ ント を サポ ー ト し た 強力 
日 本 語 処 理 @ 1024 x 1024 ド ッ ト ( 最 大 表示 エリ ア 768 x 512 ド ッ ト ) 
の 実 画面 エリ ア を 装備 し た 高 解 父 度 表示 能力 @ 512X512 ド ッ ト 、 


少 グ テ プ テ デ ァ ブー クズ テー ショ ン パ 6 ぢ どの の の 


65,536 色 同時 発色 @ 水平 32、 1 画面 118 の ス フ ラ イト 機能 @ オー 
バー スキ ャ ン 機 能 を 採用 し た 512X512 ド ッ ト レ ベル の スー パー イン 
ボ ポーズ @ テキ スト ピッ トマ ッ プ 方 式 採用 @8 重 和 音 ス テレ オ FM 音 
源 搭載 @ 音声 デジ タイ ズ 記 憶 AD PCM @ 新開 発 マ ウス ・ ト ラッ ク 
ポ ボール @1M バ イト 5"FDD 2 基 搭 載 @X-BASIC、 日 本 語 ワ ー ド フロ 
セッ サ 、 グ ラディ ウス 同 机 


豊富 な 周辺 旗 林 が 
クリ テイ ティ ブ プ ワーク を サボ ポー ん 。 


@ 15 型 カラ ー デ ィ ス プレ イ 15M1(E・B) 標準 価格 99.800 円 
@ カラ ー イ メー ジ ユ ニ ッ ト Z-6VT1 標準 価格 69,800 円 
@ カラ ー ビ デ オプ リン タ Z-6PV1 棟 準 価格 198,.000 円 
@ 24 ピ ン 漢 字 プ リン タ (80 桁 ) Z-8PK7 標準 価格 122,000 円 
@ 24 ピ ン 漢 字 プ リン タ (136 桁 ) Z-8PK8 標準 価格 152,000 円 
@ 24 ピ ン 漢 字 プ リン タ (80 桁 ) Z-8PK9 標準 価格 89.800 円 
熱転写 カラ ー プリ ンタ -8PC2 標準 価格 69,800 円 
@ ハー ド デ ィ スク ユニ ッ ト ( 10MB) -500H 標準 価格 348,000 円 
@ 増設 用 ハ ィ ス ク ユ ニッ ト (10MB Z-501H 標準 価格 258,000 円 
@ ハー ド デ ィ スク ユニ ッ ト (20MB :Z-620H 標準 価格 178,.000 円 
@ モデ ム ユ ニッ ト Z-8TM2 標準 価格 49.800 円 
@ RS-232C ケ ー ブ ル (平行 接続 型 ) CZ-8LM1 標準 価格 7,200 円 
@ HS-232C ケ ー ブ ル (クロ ス 接 続 型 ) CZ-8LM2 標準 価格 7,200 円 
e 1MB 増 設 HAM ボ ポー ド ( 内 蔵 用 ) >Z-6BE1 標準 価格 35,.000 円 
@ 拡張 /0 ボ ックス 2Z-6EB1 標準 価格 88,.000 円 
@ 2MB 増 設 HAM ボ ー ド * -6BE2 標準 価格 79.800 円 
@4MB 増 設 HAM ボ ー ド * -6BE4 標準 価格 138,000 円 
@ GP-IB ボ ー ド :Z-6BG1 標準 価格 59,800 円 
@ ユニバー サル |/0 ボード 之 -6BU1 標準 価格 39,800 円 
@ 増設 用 RS-232C ボ ー ド (2 チャ ン ネ ル :Z-6BF1 標準 価格 49,800 円 
@ 数 値 演算 プロ セッ サポ ボー ド CZ-6BP1 標準 価格 79,800 円 
@ アン ブ 内 蔵 スピ ビー カー シス テム (2 本 1 組 ) AN-160SP 標準 価格 59,800 円 
@ ジョ イカ ー ド CZ-8NJ1 標準 価格 1,700 円 

使用 の 際 に は CZ-6BE1 が 必要 で す 


e 本 体 † キ ー ホ ボー ドロ Z-600C (E・ 日 ) 標準 価格 369.000 円 
* 15 型 カラ ー テ ィ ス プレ イ テ レ ビ ビ ロ Z-600D(E・ 日 ) 標準 価格 129.800 円 
* ゃ チル トス タン ト CZ-5ST 1(E・ 晶 ) 標準 価格 5.80 ロ 円 

ゃ 撤 張 | り ホ ックス CZ-6E 昌 1 標準 価格 88.000 幅 
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Story : 銀河 系 の 遥か か な た 、 こ こ ド ラゴン ラン ド は 、 平和 と 愛 に 
満ち ああ ふれ た 、 地 球 型 星系 で あっ た 。 だ が か 突如 発生 し た 超自然 現象 と 


"正体 不明 の 凶悪 な 魔 生物 の 出現 に より 、 そ の 様相 は すっ か り 変 わっ て 


し まっ た の で ある 。 地球 人 の 超 能 力 戦士 "ハリ アー" に 、 正 義 の ドラ 
ゴン “ユー ライ ア " か ら 救 助 を 求め る 連絡 が 入っ た の は 当然 の こと だ 
つた と 言え る だ ろう 。「 コ ノ セカ イノ ヘイ ワラ トリ モ ド シ タイ 
ノダ ! イソ イデ クレ ! ハリ アー!」 ユ ー ラ イア の 悲痛 な 要請 を 
受け 、 ハ リア ー は 、 つ い に 起 っ た 。 愛用 の オー トロ ッ ク (自動 照準 固 
定 ) 機能 装備 の ラン チャ ー を 携え 、 ハ リア ー は 前 進 を 開始 し た 。 

走れ ! 翔べ ! 撃て ! スペ ー ス ハリ アー! 


// 多 M 愛 
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HI WIWIJAMBO 


お 待た せ し ま し た 。X68000 用 スペ ー ス ハリ アー が つい に 発売 に な り ま 
し た 。 多重 画面 、 ス プラ イト 、FM 音 源 、 高 速 演算 処理 、 多 色 発 色 な 
ど 、X68K の 持つ すぐ れ た 能力 を 活か し 、68000 2、Z80X1 と いう 重 
装備 を 誇る も 、 ア ー ケ ー ド ・ マ シン の オリ ジ ナ ル ・ ボ ー ド の 表現 力 に 肉 

CSEGA 1985 薄 し た 完成 度 で 皆様 の お 手元 に お 届け する こと が で きま し た 。 


店 頭 デ モ で PLAY す る 場合 に も ち 、 ヘ ッ ド ホン を お 使い いた だ き 、 Hi-Fi 「 
レル アル コマ ムジ ル 4( す コ し みく だ さい 。 

て ペンダ 4 リケン 5 ョ // みあ (=/-//7 7 
5 イン チ Disk 版 標準 価格 B.BUO 円 4 
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セリ ア 王 女 が ドラ ゴン に と ら わ れ た , ノ 
E 二 : く ノ た メ コ ュ ピコ ジン シモ ゴロ そう を) ゴン 1= こ 4 ゴン) コノ) 
“ラゴン バス ター と し て の 力 を 内 に 秘め た クロ ービス で あっ た 。 
待ち 受け る ルー ム ガ ー ダ ー を 倒し 、 ア イ テ ム を 集め な が ら 
最終 ラウ ンド に 潜む ドラ ゴン を 打ち や ぶる の が 使命 だ 。 
ユメ と ロマ ン に あふ れ た 冒険 が 今 は じ ま る 。 


ドラ ゴン バス ター 
シャ ー プ X1 5 ィ ッ テ F 版 
標準 価格 B.BH ロ 円 


@ 株 式 会 社 ナム コ 


メッ グ /7 (2 條 // 


〇 株 式 会 社 ナ ムコ 発売 元 : 電 波 新聞 社 〒141 東京 都 品川 区 東 五 反田 1-11-15 谷 03-445-6111 


さ ー 


X68000 発 表 か ら 1 年 が 過ぎ まし た 。 あ の 発表 の 時 に は 夢 で あっ た も の が , 今 , 皆さん の 手元 に 
あり ます 。 何 を し て いま すか ? 

バグ ラディ ウス を 克服 し 、 今 スペ ー ス ハリ アー で 10 面 で 悪戦 苦闘 * な ん て いう 人 も いる で し ょ 
う 。 ヾ 早く OS- 9 68000 が 出 な いか な ぁ ” と 本 体 を 前 に し て 指 わ くわ えて いる 人 も …。 

X68000 は 欲 ば りな ほど , いろ いろ な お まけ が 付い て きま す 。 標準 で OS (Human68k) と ワー ド 
プロ セッ サ , 辞書 , ゲー ム バグ ラディウス” が 付い て いま す 。 こ の お まけ , 皆さん が も し か する 
と 一 生 の お 付き 合い に な る か も し れ ま せん 。 ゲ ー ム パグ ラディ ウス ” で 一 生 … ? な ん て 。 ワ リー 
プロ で 一 生 … ? これ は , 考え られ な いこ と も あり ませ ん が …。OS の ディ スケ ッ ト の 中 に , BASIC 
と いう フォ ル ダ ー が 目 に つき ます 。BASIC な ら , 一 生 の お 付き 合い も で きそう で す 。^BASIC" 
あま り に も 耳 に な じみ の ある 言葉 で す 。 

*Beginners Allpurpose Symbolic Instruction Code′ 私 に は , も う 10 年 の 付き 合い に な り ま 
す 。 こ れ か ら も ずっ と 一 緒 に 付き 合っ て いく こと に な る で し ょ う 。 

皆さん も 一 通り 0S (Human68k) の 操作 が わか っ た と ころ で , この BASIC と いう フォ ル ダ ー を 
開い て みた こと と 思い ます 。 い や , その 前 に 福袋 の 中 に ある ^X68000 の テー マ ” を 聞い て いる と 
思い ます 。 あ な た の X-BASIC と の 付き 合い は , その 時 に も う 始 まっ た の で す 。 あ の , 何と も リズ 
ミカ ル か 演奏 。 あ の , 自動 演奏 プロ グラ ム こ を , X68000 付 属 の X-BASIC に よる も の な の で す 。 

OS は を その マシ ン の 中 心 に な る 基本 的 な 存在 で す が , OS 自身 で は 何 の 創造 も で きま せん 。 その OS 
上 に ある プロ グラ ミン グ 言 語 こ を が , 私 た ち に 創造 へ の 門 を 開い て いる の で す 。 プ ログ ラム を 信 
造 する よろ こび こそ が , パー ソナ ルコ ンピュータ に 残さ れ た ユー ザー の 特権 な の で す 。 

この 本 を 書く に あたり われ われ CZ masters clunb で は ,「 プ ログ ラミ ング と は 何 か 」 を 自問 自 答 
し て み ま し た 。 個々 に よっ て , 考え は まち まち に な っ た こと は 明白 で す が , 基本 と な る 考え 方 は 
同じ で し た 。 創造 へ の な お し みな い 労 力 と 探究 心 。 こ れ が すべ て を 解く カギ と な っ て いる の で す 。 
われ われ ユー ザー は , この X68000 か ら 見 れ ば まだ 赤ん坊 で す 。 常に 「 こ れ は 何 ? 」,、「 こ れ は , ど 
うし て ? 」 と 問い 続け て いま す 。 疑問 を 持ち も , と こと ん ま て 追求 し て 失敗 を か る ね る 。 そ ん な 中 
か ら 少 し ずつ 理解 し 成長 し て いく の で す 。 

本 を 書い た 側 と 読む 側 で の ギャ ッ プ は , ほとん ど な い と 信じ て いま す 。X68000 に つい て は , 皆 
同じ スタ ー ト 地点 に 立っ て いる の で すか ら 。X-BASIC に つい て , ほん の 少し みな さん より 早く 覚 
えた と いう だ け の こと な の で す 。 そ ん な こと は , X68000 の 宇宙 の 広 さ か ら す れ ば , ほん の ちっ ぱ 
け な 鹿 みたい な も の な の で す 。 

これ か ら の 和 努 力 と 探究 心 で 、 皆 きん と 共に X68000 の 宇宙 を 探検 し 少し ずつ この 宇宙 地図 を 埋め 
て いこ う で は あり ませ ん か り ! 旅 は まだ これ か ら で す 。 

昭和 62 年 11 月 7 日 


CZmastersclub 宮 原 哲 也 
深 沢 幸 三 
ライ トス タッ フ 佐野 勝 栄 
鎌 田 由香 
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第 1 章 X-BASIC の 概要 





1=1 交 - 日 ABIOD と 

一 般 の BASIC の 違い ……! 
1-P _X-BAGIO の 特長 2 14 
a ) 構造 化 さ れ た プロ グラ ム 形 態 ………… ・14 
b) 関数 oo ・14 
e) 変数 oe 15 
1-8 どれ か ら の X-BAIO ワ ……7 
第 ? 章 X-BASIC の 基礎 
= |] 江 - 目 作曲 IG プ ロダ ララ 

ング の 基礎 EE の SI56ESISAISSGS319N9 20 
2-1-1 ダイ レク トモ ー ド と プロ グラ ム モ 

ーー ド soseoseseeesessseesseeesesseseeeeeeeeeeeeeeeoe 

2-1-2 コマ ンド 





RUN/LOAD/SAVE/NEW/RENUM/DELETE 
LIST/FILES/CONT/CLEAR/KEY LIST 










p-P 変 EC 
2-2-1 変数 の 型 と 宣言 eg つう 
a ) char 型 変数 ……… の ii……… 

b ) int 型 変数 


c ) float 型 変数 … 
d ) str 型 変数 
2-2-2 変数 の 初期 化 ……… 
2-2-3 配列 変数 …………… 
a) | 次 元 配 列 
b) 2 次元 配列 
c ) 高 次 元 配 列 


2-2-4 その 他 の 変数 の 注意 PP 
e-3 関 数 

2 の 8 

ーー 

| ) 標準 関数 

2 ) 外部 関数 





@ グラ フィ ッ ク 関 数 (GRAPH.FNC) 
@ ス プラ イト 関数 (SPRITE.FNC) 


@ ミ ュー ジッ ク 関 数 (MUSIC.FNC) 
@ オー ディ オ 関 数 (AUDIO .FNC) 
@ マウ ス 関 数 (MOUSE.FNC) 

@ ジョイ テッ ク 関 数 (STICK.FNC) 





3) 定義 関数 ooo 
4 ) 外部 定義 関数 …… 〇 ………… 
2 ーー 3 ーー 3 関数 の 型 POCCCCLLLLLLLL ロ 
2-3-4 関数 と 変数 
グロ ー バ ル 変 数 と ロー カル 変数 
ら -4 制御 構造 と ステ ー ト メン ト ……… 49 
2-4-1 制御 構造 
a ) if て then<>else 
b) foronexteeoeeereoererrrrrrn 


c ) while と endwhile 
d ) repeat^ ン until- ン 
e ) switch- ン case^ ン default- ン 













hGSWItG SN3SdG2Gedra3gers23SSSShdstkesd 56 
f ) break と continue oooeeeeernrererrrr …58 
2-4-2 ステ ー ト メン レト に rremeoo sea 
(a ) 
(b) 
(c) 
(d) 





(e) 
(f ) error on/error off 
(g) exit ( ) 91Kew'2 る 951. 凍る ( 全 1180 が 人 


(h) 
(i) 
(j) i 
(k) 
(1) linput 
(m) locate 
( n ) print 
(o ) rem 


gosub/return 


( PD ) screen ーー 

(q ) stop 

(r) width 

p 記 5 ファ イル 管理 人 0 70 

2-5-1 ファ イル の 保存 ee 70 
save" フ ァイル ネー ム " 

2-5-2 ファ イル の 呼び 出し FPPPPLPLLLCPCCLLLLKE こ しい リル 


load" フ ァイル ネー ム ”" 

呼び 出し 後 の 自動 実行 ………………… 73 
save@ load@ 
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X68000 は これ まで の マシ ン と は 比べ も の に な ら な い 程 ハー ドウ エア の 内 容 が 充実 し て いて , そ 
の 集積 度 は 現在 の 個人 レベ ル で て 取得 可能 な パー ソナ ルコ ンピュータ の 限界 で は な いか と 思わ れる 
程 で す 。 コ ンピュータ の ハー ドウ エア と ソフ トウ エア は 調和 が 取れ て いな けれ ば な り ま せん 。 ど 
ん な 良い ソフ ト も ハー ドウ エア が 気弱 びと その 良さ が 発揮 出来 な に し.、 また を その 反対 に ハー ドウ 
エア が 良く て も ソフ トウ エア の 出来 が 悪い と 全く ハー ドウ エア の 良き が 出 て きま せん 。 そ ん な 時 
勢 に ,。 シャ ー プ は X68000 に オリ ジ ナ ル OS Human68k を ぶつ け て きま し た 。 こ の OS は ビジ ュ ア ル 
シェ ル を 使っ て 視覚 に 訴え る 国産 で は 目新し い 物 で す 。 こ の OS に は これ で 全く 問題 が な い 訳 で は 
あり ませ ん が , 一 つの 新しい 国産 機 の 方 向 ず け に な っ て いま す 。 

X メ -BASIC は こん な OS. PP イン ター プリ ンタ BASIC な の で す 。 こ の BASIC は 非常 に 構造 化 
され だ た プロ グラ ム を 記述 する こと が で き , 今 まで の BASIC と は 一 味 違 っ た も の に 仕上 が っ て いま 

。『 構 造 化 き れ た プロ グラ ム 』 と 言っ て も ピン と こない 方 も 多い か と 思い ます が , 一 言 で 言え ば 
は りや すい プロ グラ ム 』」 と 言え を ます 。 プ ログ ラム を 作っ て いる 時 や 、 デ バッ ク の 時 に 『 わ か 
りや すい プロ グラ ム 』 が 力強い 味方 に な る と 言う 事 で す 。 

例え を ば, 今 まで の BASIC の 場合 処理 速度 アセ 上 げ る ため に よく 使わ れる テク ニッ ク で , サブ ルー 
チン (繰り 返し 実行 きれ る よう な 処理 あや どこ か ら で も 使え る 様 に パッ ク し だ た もの) を プロ グラ ム の 
先頭 近く に 持っ て 来 ま す 。 こ の 場合 メイ ン ル ー チ ン は 、 これ ら の サブ ルー チン を 避け て 後ろ の 方 
へ 置か な けれ ば な ら な く な り ま す 。 こ ん な 時 は , ご 普通 に ブロ グラ ム の 先頭 に goto 一 と 記述 し 
メイ ン ル ー チ ン を 後ろ へ 持っ て いき ます 。 こ れ で は プロ グラ ム の 解読 に 非常 に 手間 が 掛か が り ま す 
し 他人 の プロ グラ ム に 至っ て は 解読 な ど 神 技 で , と て も 解読 び で きた も の で は あり ませ ん 。 

まだ た だ, プ ブログ ラム と 言う も の は どん どん 育っ て いく も の で , 処理 の 充実 を 計る 時 や , デバ ッ グ 
する 時 な ど は 行 と 行 の 間 に 別 の 処理 や 何やら が ご ちゃ ご ちゃ と 入っ て きま す 。 そ ん な 時 に お お よ 
その プロ グラ マー は , 広い スペ ー ス (空き 行 ) を 求め て , goto 一 と 処理 を 移し て 広い 空間 で の び 
の びと 色々 な 処理 を 加え て 元 の 位置 へ goto 一 と 何 も 無かっ た か の 様 に 戻っ て きま す 。 ち ょ っ と 誇 
張 し た 感じ で 書き まし た が , 多かれ 少 か れ そ れ に 近い 事 は 行わ れ て いる の で す 。 こ うな れ ば も う 
鉄壁 の プロ テク ト の 掛か っ た プロ グラ ム で , か な り の 根気 が 無けれ ば リス ト を 見 る 気 に も ちな り ま 
せん 。 と に か く 〈 行 番号 に 管理 され て いる プログラム の 場合 は , 打ち 込ん で いく うち に , 思う まま , 
気 の 向 《 ま ま に 行 番号 の 空い て いる 所 へ 跳ん で いっ て し まい ます 。 今 ま で の BASIC で は , この goto-, 
gosub 一 return の 嵐 の 中 で , 自分 で も 何 が 何 び か 判ら な く な っ て し まう よう な プロ グラ ムリ スト に 





vwumvnmvnvnvnvnvnvnwnvnnunvrunvnvnvnvrunvnvrumvnumvnvnunvnnunvmunvnvmunvnvnunvnvnunvnvnunvun 1-] XX-BASTIC と 一 般 の BASIC の 違い ww 


埋もれ て いま し た 。 

きる て これ くら い 普 通 の BASIC の 事 を ひど 〈 く 書い て し まっ た の で , X68000 の X-BASIC は さぞ か 
し 優れ 物 で は な いか と 期待 きれ て いる こと で し ょ う 。 そ うな の で す , goto 一 , gosub 一 return 無 し 
で プロ グラ ム を 作る こと が 出来 る の で すか ら ・・・ (し か し な が ら X-BASIC に も goto 一 , gosub 一 
return の 使用 は 許さ れ て いま す )。 そ の た め 介 まで お 目 に 掛か ら な か っ た 様 な 制御 構造 命令 が いく 
つか 存在 し て いま す 。 使 いな れれ ば , そん な に 面倒 な も の で は あり ませ ん 。 


if 一 then 一 else 
for 一 next 
while 一 endwhile 
repeat 一 until 


switch 一 case 一 default 一 endswitch 


この 中 に は 皆さん 良く 知っ て いる for 一 next や 一 then 一 else が あり ます が , これ も 前 述 の 制御 構 
造 命令 で す の で 縁 く 覚 えて お いて 下さい 。 詳細 に 付い て は 後 で 血 の 出 る よう な 特訓 する と し て , 
例 と し て , while 一 endwhile に つい て ちょ っ と 説明 し て み ま し ょ う 。 第 1 一 1 図 の 左側 の プロ グラ 
ム (従来 の BASIC) と 右 側 の プロ グラ ム (X-BASIC) は 全く 同じ 処理 を する も の で す 。 











(従来 の BASIC) (X-BASIC) 
10 。 int i 
10 print i 20 while 1 
20 ii 十 1 30 print i 
30 goto 10 10 ュー ョ キオ 1 
50 endwhile 











第 1 一 1 図 従来 の BASIC と X-BASIC の 違い 


この よう に 一 見 この 制御 構造 命令 を 使用 する と 、 2 行 多 く な っ て し まう わけ で す が , 内 容 を 把 
所 すれ ば 単に を それだけ で は 無い こと が わか り ま す 。 と 言う の は , 行 番号 20 だ け を 見 た だ け で , while 一 
の 方 は これ 以降 に ある endwhile 迄 の 処理 を ルー プ す る こと が 判っ て し まい ます が , goto10 の 方 は , 
行 番号 30 を 見 る まで は ルー プ に な っ て いる こと が 分 がかり ませ ん 。 

この こと か ら わ か る 様 に , 制御 構造 命令 を うま く 使 うこ と で , 行 番号 で 管理 され た 世界 か ら 開 
用 きれ る の で す 。 ま た 今 ま で の BASIC で は 先 に お 話し し た サブ ルー チン の 考え ぇ 方 が 主流 どっ た の 
で す が , この 考え 方 は そっ くり 関数 (BASIC プ ログ ラム 内 て 関数 定義 が 出来 る ) の 考え ぇ 方 に 代わ 
っ て メイ ンプ ログ ラム が すっ きり し て 非常 に 分 か りや すく な り ま す 。BASIC の 命令 も 関数 化 さ れ 
て いま す の で , プロ グラ ム 全 体 を 見 て も は っ きり 意図 が つか ゆめ る も の に な り ま す 。 
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先 に も 述べ まし た が , 双 -BASIC に は これ まで に な い 特 長 が いく つか あり ます 。 こ こ で は , その 
概要 を 説明 し ます 。 


a) 構造 化 さ れ た プロ グラ ム 形 態 


メ -BASIC で は , 行 番号 に 管理 され な い プ ログ ラム を 構成 する た め に 制御 構造 命令 が 拡充 され て 
いま す 。 制御 構造 命令 し は , プロ グラ ム の 流れ を 支配 する も の で , 従来 は goto, gosub が 主流 で し 
だ 。 し か し , goto, gosub は 人 行 番号 を 目標 に し て いる た め , 先 の 行 番号 に 管理 さき されない プログラム 
を 構成 出来 ませ ん 。X-BASIC に は 行 番号 に と ら わ れる こと 無く 、。 プ ログ ラム の 流れ を 変え る 制御 
構造 命令 が 乾 つ の 用 意 き れ て いま す 。 


人 @i--then--else 

人 @for--next 

@while--endwhile 

repeat--until 

人 @switch--case--default--endswitch 


上 か ら 二 つ TRI for-next) は 従来 の BASIC で も 良く 見 か け ま す 。 こ れ ら の 制御 構 
造 命 令 は , 行 : を 目標 と する 分 岐 を し な いた め , goto, gosub を 使う 必要 が な く な り ま す 。 


b) 関 数 


プロ グラ ム の 流れ は , 前 述 の 制御 構造 命令 で 管理 きれ て いま す が , 処理 自身 は 。 従来 の BASIC 
同様 処理 に 応じ た 内 容 の ステ ー ト メン ト (命令 ) や 演算 等 に より 行い ます 。X-BASIC で は , これ 
まで の ステ ー ト メン ト が , ステ ー ト メン ト と 関数 と に 区 別 き され て いて , 前 述 の 制御 構造 命令 以外 
の ほとん と が 関数 化 き され て いま す 。 具体 的 な 使用 方 法 し し て は 以前 の BASIC と 特別 変わ っ て いる 
訳 で は な い の で す が , 関数 で ある た め , その 関数 自身 は 値 (戻り 値 ) を 持ち , その 関数 に は 何ら 
か の 引数 が ある と いう こと で す 。 例え ば, 数 学 で 学ん だ 三角 関数 な ど は , 次 の よう に 記述 し ます 。 
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メーCOS (の 
ここ で ⑳ 紀 | 数 で , COS (の 自身 が 全体 で 値 に な っ て いま す 。 こ れ が X に 代入 きれ る 訳 で す が , 自 
分 自身 で 持っ て いる 値 を 戻り 値 と いい ます 。X-BASIC で いう 関数 も , この 考え 方 で 今 ま で の BASIC 
で 行っ て いた ステ ー メ ント (命令 ) を 使用 し て プロ グラ ム し て いた も の と ほ ば 同じ 様 に 使用 で き 
ま : から 
X-BASIC に 標準 で 用 意 (組込み ) され て いる 関数 は , 下記 の 通り 4 種類 が あり ます 。 こ れ を , 標 
準 関数 と 言い ます 。 


人 @ 数 値 演算 関数 

人 @ 文 字 列 処理 関数 

@⑯ デ ー タ 変換 関数 

@ フ ァイル 入出 力 関数 


これ は , X-BASIC に 限ら ず 、 どの パー ソナ ルコ ンピュータ の BASIC で も サポ ー ト され て いる 基本 
的 な 処理 を 分 類 し . まとめ た も の で す 。 し か し , X68000 の ハー ドウ エア の スペ ッ ク を 見 る 限り こ 
れ だ け の 関数 で ユー ザー は 納得 し ませ ん 。 み な さん が 御存知 の 通り , X68000 に は マシ ン の 特長 と 
も 言え る 下記 の 様 な ハー ドウ エア 群 が あ り ま す 。 


@65536 色 の グラ フィ ッ ク 

人 最高 256 個 まで 使用 出来 る スプ ライ ト 
音声 の 録 再生 が 出来 る ADPCM 

信 使 い 勝 手 の 良い マウ ス 

ゲー ム に か か せな い JOYSTICK 

@ ス テレ オ 8 重 和 音 FM 音源 


これ だ け ハ ー ド ウエ ア が 充実 し て いれ ば , この 機能 を BASIC で 使わ な い 手 は あり ませ ん 。 双 -BASIC 
で は , これ ら の ハー ドウ エア に 対し , 外部 関数 と し て サポ ー ト し て いま す 。 外 部 関数 と いう の は , 
X-BASIC 内 に は 駐在 し て な く , X-BASIC の 起動 時 に BASIC.CNF と いう コン フィ グレ ーション フ 
テ ァイル (X-BASIC の 諸 条 件 を 設定 する ファ イル ) に 登録 きれ て いる 外部 関数 (外部 関数 は ハー ド 
ウエ ア 別 に 分 類 き れ て いる ) を 読み 込み 、X-BASIC で これ ら の 外部 関数 の 使用 が 出来 る 様 に な り 
ます 。 を その 他 に , この BASIC.CNF で は , 初期 画面 の 一 行 の 文字 数 の 設定 。 X-BASIC の ブロ グラ 
ム や 変数 が 格納 され る メモ リ (フリ ー エ リア ) の 設定 な ど が で きま す 。 

X-BASIC の 関数 は , これ まで の 標準 関数 や 外部 関数 だ け で な く , X-BASIC プ ログ ラム 中 て 既 
に ある 標準 関数 外部 関数 、 ス テー トメ ント や 演算 , 代入 等 に より 関数 を 定義 (func 一 endfunc) 
する 定義 関数 、 外部 関数 の 構造 と 同様 に マシ ン 語 (68000 用 の マシ ン 語 ) に より , 作成 し た 外部 定 
義 関数 な が ど が あり ます 。 

c) 変 数 


X-BASIC は , 基本 的 に 四 つ の 型 の 変数 を 扱う こと が 出来 ます 。 変 数 と いう の は , ある 数 値 に 割 
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り 当て られ た 名 前 の つい た 箱 の よう な も の で , この 箱 の 中 に 入る 数 値 は 、 プロ グラ ム の 進行 と と 
も に 変化 し ます 。 


) 

0 micom と いう 変数 に 5 を 代入 する 。 
) 

処 理 
) 

mmieem 王 micorm 二 oneaaae micom と いう 変数 は 5 で あっ た が 
) 3 を 加え て micom と いう 変数 へ 再 


度 代 入 き れ 8 と な っ た 。 
この 様 に , 変数 は 数 値 と 同様 に 扱う 事 が で き , 数 値 を 代入 し た り , 演算 過程 に 使用 する こと が 
で きま す 。 
さて, X-BASIC で は , 以下 の 四 つ の 型 の 変数 を 使用 する こと が で きま す ぁ 





全 in 型 (4 バイ ト 。 32 ビ ッ ト 長 ) …… ド iieoeoneettn ー2,147 ,438.648 一 2,147 ,483,648 
人 @char 型 (」 バ イト ,。 8 ビット 長 ) 0 一 255 
介 float 型 (8 バイ ト ,。 64 ビ ッ ト 胡 ) ……… ド ドド ーーーーーーー 11,125,369,292,536 メ 10-398 

ー35,953,862,697,246X10308 
stp 型 | 蘭学 列 11 入 eaeHamzeSeeinseesRsiWs3uiaa 最大 255 文 字 ま で 


これ ら は , 使用 目的 に より 、 それ ぞ れ の 型 で 変数 を 宣言 し プロ グラ ム 中 で 使用 し ます 。 
この 変数 に は 別 の 分 類 が あり , その 変数 の 有効 範囲 に より 分 けた も の が 、 グ ロー バル 論 数 と 
ロー カル 変数 で す 。 関 数 を プロ グラ ム 内 で 定義 し た 場合 、 を その 関数 内 で 宜 言 き され た 変数 は ロー カ 


ル 変 数 と な り , メイ ンプ ログ ラム か ら は 、 参 照 す る 事 が 出来 ませ ん 。 逆 に 、 メイ ンプ ログ ラム 内 
で 宣言 され た 変数 は 、 関数 内 で も 参照 で きる グロ ー バ ル 変 数 と な り ま す 。 但 し, メ イン プログラ 


ム 内 で 宣言 し た 変数 名 と 同 -- の も の を 、 関 数 内 で 宣言 する と 、 関数 内 だ け に 和 有効 な ロー カル 変数 
と な り , メイ ンプ ブロ グラ ム へ 大 っ た と き に は , 先程 の ロー カル 変数 は 消滅 し て いま す 。 ロ ー カ ル 
変数 が 使用 可能 に な っ た た め , 再帰 呼 員 し が 出来 る 様 に な り ま す 。 こ の 他 に ,X-BASIC て 使用 で 
きる 変数 と し て , 配列 変数 が あり ます が , これ は 少々 や や こし い の で . 後 で 詳し く 解 説 し ます 。 
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X-BASIC 自 身 の 実行 速度 は 。 他 の 16bit 機 の BASIC と 同等 の スピ ー ド で す 。 従来 の BASIC で は , 
スピ ー ド を 速く する 手段 し し て , BASIC ュ ン パ イラ を 使用 し て いま し だ た が, コン パイ ル 後 の プロ 
グラ ム が 非常 に 大 きく な る こと と , 全て の 命令 (ステ ー ト メン ト ) を 完全 に サポ ー ト し て いな か 
っ た り , コン パイ ル 後 の 実行 速度 が 思う よう に 速く な か っ だ たり な ど と , 種々 の 問題 が 発生 し て い 
ます 。 こ れ は , BASIC の 構造 自生 の 問題 で 、 も と も と コン パイ ラ を 意識 し て 作成 され て いな い 為 , 
ュ ン パイ ル 時 に 無理 が 生ずる の で す 。 

X_-BASIC は 。 制御 構造 命令 を 使用 し , BASIC の プロ グラ ム 自 身 が 構造 化 さ きれ て いる 上 , 制作 時 
に 既に コン パイ ル 方 法 も 考え て 完成 きれ て いま す 。X-BASIC は 、 BASIC プ ログラム の 形態 で , 行 
番号 きえ な けれ ば , C 言 語 と ほとん どか わら な いも の が あり ます 。 従っ て BASIC の プログ ラム ( ツ 
ー ス ブログ ラム ) は , C ソ ー ス コン バー タ で ,C の ソー スプ ログ ラム へ 変換 され , その 後に じ コ ン 





パイ ラ に より , マシ ン 語 ヘコ ン パ イル され ます 。 従って, 従来 の BASIC ュ ン パ イラ で 問題 と な っ 
て いる 「 メ モリ 効率 が 悪い 」,、「 コ ン パ イル 後 の 実行 速度 が 。 思う よう に 上 が ら な い 」 等 の 因子 
が ,C コ ン パ イラ に 依存 し て きま す 。 

C コ ン パ イラ の 能力 は 未知 数 で ある と し て も , 介 ま で の C ュ コン パイ ラ の 概念 や 実績 か らい っ て , 
めちゃ めちゃ に メモ リ を 食い 、 のろのろ と 遅い プロ グラ ム に な る 事 は まず あり ませ ん 。 こ の こと 
か ら 。X-BASIC の 将来 は 非常 に 明る いも の に な り ま す 。 速 度 と メモ リ 和 効率 は 、 こ の ユニ ー ク な 方 
法 で 克服 きれ た の で す 。BASIC の 良い 所 と し て プロ グラ ミン グ 、 即 実行 が あり まし た が , 十分 に 
デバ ッ ク し て (手直し ) 再 実 行 を (りか を え し, 思う存分 テス ト し た 上 で , これ で 良い と いう と こ 
ろ で ュ ユン パイ ル し て 実行 速度 を 上 げ る 非常 に 能率 の 良い 方 法 に な り ま す 。 

具体 的 に X-BASIC で の コン パイ ル 考 順 を 説明 し ます 。 


遇  X-BASIC プ ログ ラム 作成 
2| テス ト run 
3| X-BASIC プ ログ ラム の デバ ッ グ 


ト 2 


4| basic to C コ ン バ ー タ に より C 言 語 の ソー スプ ログ ラム に 変換 














ト 2 
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C コ ン パ イラ で アセ ンプ ブル ソー ス に コン バイル 
J 


6] アモ ンプ ラ ・ リ ンカ て 実行 可能 な マシ ン 語 プロ グラ ム の 完成 


回 




















以上 の 過程 で 高速 化し た プロ グラ ム が 完成 し ます が , [か ら [3] の 部 分 は 。 X-BASIC で の 分 担 で す 。 

















ンド に デン クニ ッ 必 





X-BASIC の リス ト を 大 文字 に する 方 法 





X-BASIC で は , リス ト を 出す と き , for や print な どの 「 子 約 語 」 や 変数 名 が 小文字 で 表示 きれ ま 
す が , 次 の ょ うな 作業 を 行う と , 従来 の BASIC 同様 , 大 文字 表示 に する こと が で きま す 。 
① い ま 利 用 し て いる X-BASIC の ディ スク が , X68000 を 買っ た と き に 付い て きた シス テム ディ スク の 
マス ター で ある 場合 は まず, バックアップ (コピー) を と り ま す 。 バ パ バックアップ し た デイ スク に は , 
ライ ト プ ロ テク トシ ー ル を 貼ら な いで お きま す 。 
いま ビジ ュ ア ル シ ェ ル が 動作 し て いる 時 は ,「COMMAND.X」 を ダブ ルク リッ ク し , コ マン ド シ ェ 
ル を 呼び 出し ます 。 
次 に 。 バッ クア ッ プ し た ディ スク を ドラ イブ A に 入れ , 
A>ED BASIC\ BASIC.CNF 品 
と し ます 。A> の 部 分 は すでに 表示 きれ て いる の で 入力 不要 で す 。 
画面 に 数 行 の 文字 (下図 参照 ) が 表示 され ます の で , この 中 の 
ーー 画面 大 上 に 表示 きれ る 内 容 一 一 


FREE 三 128 
WIDTH =64 
BEEP =ON 
CAPS =OFF 
FUNC =AUDIO 
FUNC =GRAPH 


FUNC = テ MUSIC 
FUNC = ニ MOUSE 
FUNC =SPRITE 
FUNC =STICK 











CAPS = OFF 

の OFF の 部 分 を ON に 変え ます 。 具 体 的 に 言う と カー ソル を 最初 の ( 左 の ) F の 所 まで 持っ て いっ て 。 
DEL| DE 革 と 2 回 押し , 国 と 入力 し ます 。 は 不要 で す 。 

④ 注 意 深く , 区 SC| 国 と 入力 する と 作業 は 終わ り で す 。 コ マン ド シ ェ ル に 戻り ます の で 最初 に ドジ 
ュ ユア ル シ ェ ル を 利用 し て いた 場合 は 

A>EXIT で , ビジ ュ ア ル シ ェ ル に 戻れ ます 。 

いつ も の 手順 で X-BASIC を 起動 し て , リス ト が 大 文字 で 表示 る れる か 確か め て みて 下さ い 。 
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c-| BASIC プ ログ ラミ ング の 基礎 














X-BASIC の 特長 を いか し た プロ グラ ム を 作成 する た め の ポ イン ト は, 


e 変数 
@ 関数 
@ 市 御 構造 命令 


で す が , この 他 に も BASIC の 基礎 概念 と し て , エディ ッ ト モ ー ド , プロ グラ ム の 実行 ファ イル 管 
理 , 等 が あり ます 。 これ まで の BASIC と 方 法 が 同じ も の も あれ ば , まっ た くち が っ た 物 $ も ありま 
す が , 再 確認 する つも り で 一 通り 説明 し ます 。BASIC を ある 程度 セ お わ か り の 方 は , 2 一 1 は 読み 
飛ば し て いた だ いて 結構 で す 。 

ここ で , この 後 の 説明 を 一 定 の 基準 で 統一 し て お か な けれ ば な ら な い の で , 使 用 する フロ ッ ピ ー 
ディ スク を 一 枚 用 意 し て 下さ い 。 こ の フロ ッ ピ ー は , シス テム ディ スク を その まま コピ ー し た も 


| ダイ レク トモ ー ド と プログ ラム モー ド 


X-BASIC は Human68k の ビジ ュ ア ル シ ェ ル か ら で も , コマ ンド シェ ル か ら で も , BASIC を 
起動 する こと が 出来 ます 。 起 動き され た 直後 の 画面 は , 第 2 一 1 図 の 様 に な り ま す 。 








X-BASIC for X68999 version 1.99 
Copyright 1987 SHARP/Hudson 
128Kbytes free 


OK 


第 2 一 1 X-BASIC 起動 画面 











白い 四角 の 点 減 の こと を カー ツル と いい ます 。 こ の カー ソル が 点 減 し て いる 状態 を , 入力 待ち 
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状態 し いい ます 。 こ の 状態 で 第 2 一 2 図 の 通り タイ プイ ン し て 見 て くだ さい 。 





X-BASIC for X68999 version 1.99 
Copyright 1987 SHARP/Hudson 
128Kbytes free 


OK 
PRINT "X68999" 男 











第 2 一 2 PRINT 文 を 入力 





この 状態 で 回 キー を 押す と , 第 2 一 3 図 の 様 に な り ま す 。 














X-BASIC for X68999 version 1.99 
Copyright 1987 SHARP/Hudson 
128Kbytes free 


OK 
print "XY68999" 
X68009 


自 
第 2 一 3 図 実行 画面 


ここ に 紹介 し た 例 は , print と いう 命令 文 (画面 に ある 決ま っ た 書式 に より , 娘 や 数 値 や 変数 の 
内 容 等 を 表示 する ) を ダイ レク ト に 実行 し た も の で す 。 こ の よう に , 直接 命令 文 を 実行 きせ る こ 
と を ダイ レク トモ ー ド と いい ます 。 ダ イレ クト モー ド で の 実行 は , その 命令 文 の 結果 を 即座 に 知 
り た い 時 や , た めし に を の 命令 を 使用 し , 動作 を 確認 し た いと き な ど に 使用 し ます 。 

命令 文 に 使用 する こと が 出来 る 命令 は , 基本 的 に は , ステ ー ト メン ト , 関数 , 演算 式 , 代入 式 
で す が , この まま で は 一 つの 命令 文 し か 実行 で き ませ ん 。 複数 の 命令 文 を ダイ レク トモ ー ド て 実 
行 す る 場合 は , 命令 文 と 命令 文 を : (コロ ン ) で 接続 し . つない で いく こと が で きま す 。 第 2 一 
4 図 の 例 を 実行 し て みて くだ きい 。 














print "X68999":print "X-BASIC 


X68900 
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X-BASIC 





第 2 一 4 図 : (コロ ン ) で 二 つ の 句 文 を つなぐ こと が で きる 


る き は どの, print 一 と いう 命令 文 が , 二 つ 実 行き れ た こと が わか り ま す 。 こ の 様 に : (コロ ン ) 
に より , いく つか の 命令 文 を 接続 し た も の を , マル チ ス テー トメ ント と いい ます 。 第 2 一 5 図 の 
例 も 実行 し て みて くだ さい 。 





for i=@ to 1W:iprint ji:next 











第 2 一 5 図 マル チ ス テー トメ ント 実行 例 


と な り ま す が , ここ で また 新しい 命令 文 が 登場 し て きま す 。 

fori= 0 to10…… for 以下 next まで を 変換 i の 値 を 0 か ら 1 ずつ 変化 きせ て ルー プ " す る 。 

next ee i の 値 に 1 を 加え て for 以下 を 繰り 返す 。 i が 10 を 越え を た ら 次 へ 進む 。 
と いう それ ぞ れ の 命令 文 で す 。 命 令 文 の 内 容 (ステ ー ト メン ト 等 ) に つい て は , 後述 する の で あ 
まり 重要 で は な い の で す が , 三 つ の 命令 文 が : (コロ ン ) に より , 全て 実行 され て いる 点 に 注意 
し て くだ さい 。 こ の よう に , ダイ レク トモ ー ド で 色々 な 命令 文 を 組み 合わ せ て , 実行 きせ る こと 
が 出来 ます 。 ダ イレ クト モー ド て 実行 きせ た あと , 前 述 の 例 で for 一 の 所 で , 0 か ら 10 ま で の 変化 
を 10 か ら 20 ま で に 変更 し て , また ダイ レク トモ ー ド て 実行 し た い の で す が ど うし た ら よ いで し ょ 
う か 。 

画面 上 の 例文 や 見 て , その 通り キー ボー ド か ら 入 力 し for 一 の 所 だ け 0 を 10 に , 10 を 20 に 変更 し 

て 入力 し て も いい の で す が , 非常 に 能率 が 悪い の で カー ソル キー ([I[ ロ キー) の [キー を 押 
し て for i…… の 所 へ 合わ せ , 四 キ ー で 0 の と ころ まで 進め | INS | キー を 押し , 1 を キー イン し , 
また 中 キー で 10 の 1 の 所 へ カー ツル を 進め , | INS | キー を 押し て 2 を キー イン し , 同 キー を 押し 
ます 。 す る と どう で し ょ う 。 第 2 一 6 較 の よう に な り ま し た 。 
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for i=19@ to 29:print jij:next 


19 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 











第 2 一 6 図 エディ ッ ト 操 作 で プロ グラ ム を 修正 


今 の 一 連 の キー 操作 を エディ ッ ト と いっ て , X - BASIC の プロ グラ ム 入 力 時 や 今 の 様 な ダイ レ 
クト モー ド の 命令 文 入力 時 な ど 文 の 変更 の 時 に 大 変 便利 で す 。 
エディ ッ ト で 使え る と 便利 な 方 法 を まとめ る と 次 の 様 に な り ま す 。 
1. 打ち 込ん で いる 行 で , カー ツル 位置 より 手前 の 娘 字 を 他 の 文字 に 変更 する 。 
〔 例 ] PLINT "X68000” 田 ニッ PRINT "X68000” 画 
カー ソル キー の 加 キ ー で L まで て 戻し, し を R に 書き 換え て , 円 キー で も と の 位置 へ 戻 
る 。 
2 . 打ち 込ん で いる 行 で , カー ツル 位置 よ 手前 の 女 字 を 削除 する 。 
〔 例 ] PRRINT "68000” 田 マ PRINT "X68000” 画 
カー ソル キー の 貴 キ ー で 後 の R まで も と し , | DEL | キー を 押し , 円 キー で も と の 位置 
へ も どる 。 又 は, カー ツル キー の 一 キー で 後 の R また は 【 ま で も ど し , | BS] キー を 押 
し , 円 キー で も と の 位置 へ も どる 。 
3. 打ち 込ん で いる 行 で 、 カー ツル 位置 より 手前 の 廊 字 と 文字 の 間 へ 廊 字 を 挿入 する 。 
( 例 〕] PINT "X68000” 画 に 2 PRINT "X68000" 画 
カー ソル キー の 昌 キ ー で 1 まで も と し | INS | キー を 押し その キー に 赤い ラン プ ' が つい 
た こと を 確認 し , R と 入力 し , | INS | キー を 押し , 赤い ラン プ が 消え だこ と を 確認 し 
キー で も と の 位置 へ も どる 。 
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4 以前 実行 し た ダイ レク トモ ー ド の 文 の 内 容 (まだ 画面 上 に 表示 され て いる も の ) を 変更 し 再 
実行 する 。 
〔 例 〕 print "X 68000 ": print "X-BASIC" の print "X-BASIC”: print"X-BASIC 


X 68000 X-BASIC 
X-BASIC X-BASIC 
園 画 


カー ソル キー の [| キー で , 変更 し た い 行 へ も ど し , 1 一 3 の 要領 で 変更 し た 後 , その 
行 で キー を 押す 。 
さき て, 本 題 へ 戻り ます が , ダイ レク トモ ー ド で の 実行 は , 必ず ロロ キー を 押す こと に より 実行 を 
開始 し ます 。 そし て , 実行 後 は 画面 に ダイ レク トモ ー ド の 命令 文 が 残っ て いる 場合 を 除き , 再 実 
行き せる 時 に は も うぅ 一 度 同じ 文 を キー ボー ド か ら 6 入力 し な けれ ば な り ま せん 。 これ は 前 に も 述べ 
まし た が , 一 時 的 に 動作 を 確認 する た め だ っ た り , その 命令 文 の 結果 を , 即座 に 知る た め な の で 
し か た が あり ませ ん 。 では, どう し て 同じ 命令 文 を 何 回 も 実行 きせ た ら 良 い の で し ょ う 。 さ きき は ほ 
どの 
print "X 68000 ": print "X-BASIC" 
の 文 を 使用 し て 説明 し ます 。 エ ディ ッ ト の 機能 を 利用 し て 頭 文 字 の 前 に 10 と いう 数 字 と (スペ ー 
ス ) を 一 打ち込ん で くだ さい 。 
10 print "X68000": print "X-BASIC" 
と な り ま す 。 こ こ で ダイ レク トモ ー ド の と き の よ うに キー を 押し ます が , 画面 上 に 
X 68000 
X-BASIC 
画 
と いう よう に は 出力 され ませ ん で し た 。 し か し , ここ て 第 2 一 7 図 の 様 に 入力 し , キー を 押す 
と ざ う で し も し ょ う 。 

















19 print “X68999":print "X-BASIC" 
RUN 


X68990 
X-BASIC 


OK 











第 2 一 7 図 行 番号 の つい た プロ グラ ム を 実行 する 
ダイ レク トモ ー ド て 実行 し た 時 の 様 に , 画面 に 文字 が 出力 され , OK と な り カ ー ソ ツル が 現れ ま 
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す 。 こ の 後 RUN キー を 押せ ば , 何 回 で も "X 68000” と "X-BASIC" が 画面 に 出力 され ます 。 
これ は ,。 ダイ レク トモ ー ド の 命令 文 に , 行 番号 を つけ た た め に , プロ グラ ム モ ー ド で 
10 print "X 68000 ”" :print "X-BASIC" 

と いう 命令 文 が 。 X-BASIC の ブロ グラ ム メ モリ に 書き 込ま れ た た だ めで す 。 即ち , 行 番号 命令 文 
( : 命令 文 : 命令 文 …) の 形式 に な る と 、 プ ログ ラム モー ド と 解釈 ミ され , プロ グラ ム メ モリ へ 格 
納 さ れ ま す 。 プ ログ ラム メモ リ 内 に 入っ て いる プロ グラ ム に 対す る 操作 は , 全て X-BASIC の コマ 
ンド に より 行い ます 。 例えば, 今 の RUN と いう の は , コマ ンド で "プログ ラム メモ リ に 書き 込ま 
れ て いる ブログ ラム を 実行 せよ " と いう 意味 に な り ま す 。 コ ユマ ンド に は , 次 の 様 な も の が あり ま 











す 。 
コマ ンド 一 覧 
RUN プロ グラ ム メ モリ 内 の プロ グラ ム の 実行 。 
LOAD | 指定 きれ た ファ イル ネー ム で , ディ スク 内 に 記憶 され て いる ブロ グラ ム を プ 
ログ ラム メモ リ に 移す 。 
SAVE 指定 され た ファ イル ネー ム で , プ ログ ラム メモ リ か ら デ ィ ス ク へ 記憶 する 。 
NEW プロ グラ ム メ モリ 内 を , クリ ア す る 。 
RM 紳 定 され た 現在 の 行 番号 か ら , 指定 行 番号 間隔 で , 指定 行 番号 か ら 行 番号 を 
ふり 直す 。 
1 St 指定 され た 行 番号 まで を , プロ グラ ム メ モリ か ら 消 
LIST プロ グラ ム メ モリ 内 の プロ グラ ム を , 画面 に 出力 する 。 
FILES ディ スク 内 の ファ イル を , 画面 に 出力 する 。 
CONT | BRAKE | で 停止 し た プロ グラ ム を 続行 する 。 
CLEAR 宣言 され て いる 変数 を すべ て 解除 する 。 
KEYLIST ファ ンク ショ ン キ ー の リス ト を 画面 に 出力 する 。 
CHILD チャ イル ド プ ロ セ ス へ 入る 。 
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画面 の 1 行文 字数 と 行 数 の 指定 。 





親 プ ロモ ス へ も どる 。 











コマ ンド ー つ 一 つの 動作 は 後述 し ます が , 基本 的 に これ ら の コマ ンド は プロ グラ ム 内 へ 使用 す 
る こと が 出来 ませ ん 。 常に ダイ レク トモ ー ド で の 使用 ほし いう こと に な り ま す 。 その 他 の 制限 と し 
て ダイ レク トモ ー ド で この コマ ンド を マル チ ス テー トメ ント で 記述 し て は いけ な いと いう こと で 
薄 

ダイ レク トモ ー ド で の 命令 文 に 行 番号 を つけ た も の が , プロ グラ ム と し て プロ グラ ム メ モリ に 
記憶 きれ る こと が わか っ た わけ で す が , 行 番号 の 役割 し は , いっ た い 何 で し ょ うか 。 第 1 章 で も 
説明 し まし た が , X-BASIC で は 「 構 造 化 さ れ て , 行 番号 に 管理 きせ な い ブ ログ ラム を 作れ る 。」 
と し まし た が , 実際 に は 行 番号 は , プロ グラ ム メ モリ 内 の 住所 の 役割 を し て いま す 。 例えば, 第 
2 一 8 図 を 参照 し て くだ きい 。 





19 int ji 

29 for i=9 to 19 
39 print i 

49 next 

59 end 











第 2 一 8 10-50 ま で の プロ グラ ム 


この リス ト は , 先程 ダイ レク トモ ー ド の マル チ ス テー トメ ント で 1 行 で 実行 きせ て いた も の を 
展開 し て , プロ グラ ム モ ー ド に し た も の で す が , 30 print i の 行 の こと を ,「 上 か ら 3 行 目 の 文 」 と 
いう の と 「30 行 目 の 文 」 と いう の で は , 後者 の 方 が は っ きり と 目的 と する 行 を 言う こと が 出来 ま 
す 。 

また , この リス ト は , 50 行 目 ま で 10 番 と ば し て 5 行 し か な い の で ,「 上 か ら 3 行 目 」 で も 良い の で す 
が , 何 千 行 も の リス ト で 「 上 か ら 352 行 目 」 な ん て 言わ れ て も , 上 か ら 順 に 数 を て いか な けれ ば な 
り ま せん 。 ま だ, コマ ンド を 思い 出し て くだ さい 。 

DELETE に つい て も ,「 上 か ら 何 行 目 か ら 何 行 目 まで を 削除 」 な ん て 言っ て も , 本 当 に その 行か ら 
で いい か 確認 する に は , 上 か ら か ぞ え な けれ ば な り ま せん 。 行 番号 は , その 文 の 住所 を 知る た め 
の 住所 番地 な の で す 。 その 他 の 役割 と し て は , プロ グラ ム を 進行 きせ る 順序 を 知ら せる 役割 も あ 
り ま す 。 第 2 一 9 国 の 例 の よう に , 打ち 込ん で みて 下さ きい 。 





NEW 品 
19 int i 
39 print i 
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59 end 
49 next 
29 for i=9 to 19 











第 2 一 9 図 行 番号 を めちゃ くち ゃ に 入力 する 


ここ で RUN 円 と 打ち 込む と 0 か ら 10 ま で 出力 し て カー ツル が 点 減 し て 、 入 力 待ち の 状態 と な り 


ます 。 こ の 時 LIST 貼 と 打ち 込む と ど う で し ょ う 。 





LIST 

19 int i 

29 for i=9 to 19 
39 print i 

49 next 

59 end 

OK 

四 











第 2 一 10 図 きち ん と 順番 に な っ て いる 


第 2 一 10 図 の よう に プロ グラ ム が 出力 され ます 。 先 に 入れ た 順序 で な く て , 行 番号 の 小さ い 順に 並 
び か えて 出力 され て いま す 。 これ は , ブロ グラ ム は 行 番号 の 小さ い 順 に 処理 を 進め て いく か ら で , 
キー イン に より プロ グラ ム メ モリ へ , 入力 し て いく 〈 順 訟 で は な いか ら で す 。 し た が っ て , ブロ グ 
ラム の 変更 時 に ある 行 と , その 次 の 行 の 間 に 別 の 処理 を 入れ た い 場 合 は , 画面 上 (な る べく 左端) 
の な に も 書い て な い 行 へ , 行 番号 と 行 番号 の 間 の 整数 を 行 番号 と し た 命令 文 を 入力 すれ ば いい の 


で す 。 た と えば , 上 の 例 で , 30 と 40 の 間 に も う 一 つ print 一 を 入れ る 場合 は , 





19 int i 

29 for i= to 190 
39 print i 

49 next 


59 end 
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35 print "X68999" ーー…… 新しく 追加 し た 行 
久 


第 2 一 11 図 35 行 を 後 か ら 入力 す る 





第 2 一 11 図 の よう に 入力 し て LIST を キー イン する と 





LIST 

19 int i 

29 for i=9 to 19 
39 print ji 

35 print "X68999" 
49 next 

59 end 











第 2 一 12 図 30 行 と 40 行 の 間 に 35 行 が 追加 され る 


第 2 一 12 図 の よう に な り ま す 。 これ を 行 の 挿入 と たい いま す が , この よう か な 場面 を 常に 子 測 し て プ 
ログ ラム を 入力 する 際 は , 必ず 10 行 単位 や 100 行 単位 で 行 番号 を 割り 付け る 様 に し て いま す 。 

行 番号 命令 文 ( : 命令 文 : 命令 文 …) の 形式 に より プロ グラ ム と 解釈 され て プロ グラ ム メ モ 
リ に 格納 され , 割り 当て て な い 行 番号 に ゲロ グ ラム を 書く と , 行 番号 の 前 後 関係 に より 定まる 位 
置 に ゲロ グラ ム が 挿入 る れる こと が わか り ま し た 。 次 は プロ グラ ム の 削除 で す 。 先程 の 画面 を そ 
の まま 利用 し ます 。 

第 2 一 12 図 の 画面 より , 35 貼 と 打ち 込み 。 LIST 貼 と し ます 。 





35 

LIST 

19 int i 

20 for i=9 to 10 
39 print ji 

49 next 

59 end 








第 2 一 13 図 35 行 が 削除 され た 
含 度 は , 先程 の 35 行 の 文 が な く な っ て いる こと が わか り ま す 。 こ の よう に , 行 全体 を 削除 する 
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場合 は , 削除 し た い 行 番号 を 実行 し ます 。 この 他 に , X-BASIC の コマ ンド の DELETE を 使用 
し た 行 の 削除 が あり ます が , この コマ ンド は , 連続 し た 複数 行 の 場合 に 有効 で す 。 














き て , この で らい 説明 が 進ん で くる と , XX- BASIC の プロ グラ ミン グ で エディ ッ ト 時 に ダイ レ 
クト モー ド て 使用 する コマ ンド を 使わ な けれ ば , いろ いろ と 説明 し に くく な り ま す の で , コマ ン 
ド の 説明 を し ます 。 こ の 説明 の 中 で は , 今後 進め て いく 上 で の , コマ ンド の キー ワー ド も 説明 し 
ます の で , 注意 し て くだ きい 。 


RUN と いう の は 基本 的 に は プロ グラ ム メ モリ 内 の プロ グラ ム を 実行 きせ る コマ ンド で す 。 プ ロ 
グラ ム は , 行 番号 の 小さ い 順 に 実行 きれ る た め , 基本 形 で は プロ グラ ム メ モリ の な か で 一 番 小 さ 
い 行 番号 か ら 6 実行 し ます 。 プ ログ ラム の 途中 か ら 実 行 す る に は , RUN 行 番号 と いう 形式 の 行 番号 
指定 の 実行 を 行い ます 。 こ の 他 に , ファ イル ネー ム 指 定 の 実行 が あり ます が , これ は LOAD の あ 
と に RUN を 実行 し た も の と 同じ で す の で , LOAD の 項 を 参照 し て 下さ い 。 本 婦中 " この プ ブログ 
ラム を 実行 する と ……" と あり まし た ら , この RUN の 事 で す 。 


現在 , ディ スク 等 に 登録 きれ て いる X- BASIC の プロ グラ ム を , プロ グラ ム メ モリ 転送 し ま 
す 。 X - BASIC は , プロ グラ ム メ モリ 内 の BASIC プロ グラ ム の み 実 行 可 能 で す の で , ディ スク 
等 に 格納 され て いる プロ グラ ム を 一 度 ゲ ログ ラム メモ リ へ 転送 する 必要 が あり ます 。 その 後 , を 
の プロ グラ ム を 修正 する な り , 実行 する な り の 手順 ほし な る わけ で す 。 LOAD @ " ファ イル ネー 
ム ” に つい て は , プロ グラ ム の 結合 に 使用 きれ る の で , 後述 し ます 。 こ の コマ ンド を 実行 する と , 
今 ま で プロ グラ ム メ モリ に 入っ て いた プログ ラム は 消去 され ます 。 本 廊 中 に ," プロ グラ ム を ロー 
ド し …… "と ある 場合 は , この LOAD コマ ンド で 特に 指定 し な い 限 り フ ァイル 名 は 任意 の ファ イ 
ル 名 で 結構 で す 。 





現在 , プ ログ ラム メモ リ 内 に ある X- BASIC の プロ グラ ム を, ディ スク 等 へ 転送 し 保存 し ます 。 
し か し, ディス ク 内 に 登録 する 際 に , OS が 管理 する 対象 し な る ファ イル ネー ム が 必要 と な る の で 
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必ず ファ イル ネー ム を 指定 し て 下さ い 。SAVE@ "ファ イル ネー ム "” は , ブロ グラ ム の 結合 に 使 
用 る れる の で 後述 し ます 。 本 廊 中 に "プロ グラ ムネ ー ム を セー ブ し ……" と ある 場合 は , こ の SAVE 
コマ ンド で ファ イル 名 に つい て は LOAD と 同様 で す 。 


これ は , プ ログ ラム メモ リ 内 に ある X- BASIC の プロ グラ ム を 消去 する コマ ンド で す 。 同 時 に , 





宣言 きま れ て いた 変数 は すべ て 解除 る きれ ま す 。 新 し い プ ログ ラム を 入力 する 時 に は , 必ず NEW す 
る よう に 心掛け て 下さ い 。 





RENUM と は Renumber の こと で , プロ グラ ム に 付け て ある 行 番号 の 操作 を し ます 。 具体 的 に 
は , 行 と 行 の 間 に 行 を 挿入 し て 間隔 を つめ ゆめ だり, プロ グラ ム の 一 部 行 番号 を つけ か えて , ブロ グ 
ラム 内 の 位置 を か えた り し ます 。 指 定 す る こと が 出来 る の は , 新しく つけ る 行 番号 の 先頭 と 現在 
の 行 番号 の どの 位置 か ら か と , 新しく つけ る 行 番号 の 増分 で す が , 指定 ナシ と いう こと も 出来 ま 
す 。 新 行 番号 を 省略 する と 10 か ら に な り , 旧 行 番号 を 省略 する と 現在 の プロ グラ ム の 先頭 か ら と 
な り , 増分 を 省略 する と 増分 が 10 ほ となり ま す 。 


プロ グラ ム 内 の 指定 行 番号 か ら , 指定 終了 行 番号 まで を 削除 し ます 。 だ だ し , 終了 行 番号 を 省 
略し た 場合 は 終わ り ま で と し , 開始 行 番号 を 省略 し た 場合 は 最初 か ら と し ます 。 削 除き れる の は , 
開始 行 と 終了 行 も 含ま れる の で 間違い の な いよ うに し て 下さ きい 。 本 壇 中 に ," 何 行 目 か ら 何 行 目 ま 
で を 削除 し て ……" と ある 場合 は , この コマ ンド を 使用 し ます 。(※ 注 ) ( 行 番号 だ け 打 ち 込ん で , 
一 行 ずつ 削除 する 方 法 で も 構い ませ ん ) 
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プロ グラ ム メ モリ 内 の プロ グラ ム を 画面 へ 出力 し ます 。 範囲 の 指定 が な い 場合 に は プロ グラ ム 
すべ て が , また 開始 行 や 終了 行 の どちら と も 指定 し た 場合 は 指定 され た 範囲 が 画面 に 出力 され ま 
す 。 LIST は 頭 に し を つけ , プリ ンタ に ブロ グラ ム を 打ち 出す こと も で きま す (LLIST )。 本 娘 
中 で ," リス ト を 見 て 下さ る い …… " と ある 場合 は , 打ち 込ん で ある リス ト か また 本 文 で 紹介 し て い 
る リス ト か に 注意 し て 下さ い 。 


FILES と いう の は デバ イス (一 般 に は ディ スク ) 内 の ファ イル の 一 覧 を 画面 に 出力 する コマ ン 
ド で す 。 こ こ で , FILES の 後に "(ダブ プル クォート ) で くく っ だ た デバ イス 名 , ファ イル 名 を 指定 
する と ある 限ら れ た 範囲 の ファ イル を 検索 し 表示 し ます 。 限ら れ た 範囲 し いう の は , 例え ば " B 
ドラ イブ の BIN と いう ディ レク トリ 内 "と か ," AF ドラ イブ の ルー トディ レク トリ " と いう よう 
に 指定 きれ た と いう こと で す 。 ま た , ファ イル 名 の 指定 に は ワイ ルド カー ド を 使用 で き , 次 の よ 
うぅ な 記述 に な り ま す 。 ワ イル ドカ ー ド に つい て は , 本 体 の Human68K ユー ザー ズ マ ニュ アル を 
参照 し て 下る い 。 

files De 二 。 
デバ イ ぇ 名 ゴ し ラッ ィ ルド カー ド 
色々 な 応用 例 が あり ます が , 一 般 的 に は 次 の よう な 記述 を 覚え て いれ ば 十分 で す 。 
files 
files "a:" 
ドラ イブ 名 
files "a:\ BIN" 
ドラ イブ 名 上 計 4 レク トリ 名 


X - BASIC の プロ グラ ム を 実行 中 に , | BREAK キー, | CTRL +| C キー, お よび プロ グラ ム 
中 の STOP ステ ー ト メン ト て 実行 を 中 断 し た と き に , CONT と する こと で 再開 する こと が で 
きま す 。 こ れ ら 三 つ の 方 法 で 中 断 し た と き に , ディ スプ レイ に は どこ て 中断 し た か が 表示 る れ ま 
す 。 だ だ し , 中 断 し て いる と き は 入力 待ち 状態 で カー ツル が 点滅 し て いる の で , リス ト や print 六 
に より 変数 の 表示 , 確認 は びき ます が , プロ グラ ム の 変更 を する と 再開 で き な く な り ま す 。 
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現在 。 宜 言 き まれ て いる 変数 を 初期 化 ( X - BASIC 起動 時 の 状態 ) し ます 。 例え ば , 次 の よう に 
ダイ レク トモ ー ド で i と いう 変数 を 整数 32 ビ ッ ト と いう 型 に 宣言 し ます 。 

int i 回 

男 
現在 , i は 整数 32 ビ ッ ト 型 の 整数 と し て 宣言 きれ て いま す 。 ここ で , も ぅ 一 度 次 の よう に 打ち こ 
み ま す 。 

int i 一 回 目 の 宣 言 

inti 較 今 , 入力 し よう と し て いる 命令 文 

ここ で , キー を 押す と エラ ー を 知ら せる ビー プ 音 (" ピッ ” と いう 音 ) と 共に , 画面 に 「 変 
数 は すでに 宜 言 きれ て いま す 」 と 表示 され ます 。 こ れ は 言う まで も な く , 一 回 目 の 宣言 で 1 と いう 
変数 は 整数 32 ビ ッ ト ( int 型 ) に 宣言 され て いる た めで , も うぅ 一 度 宣言 し よう と し た た め に X- BASIC 
が 注意 を うな が し た の で す 。 で は , ここ で 次 の よう に し ます 。 


int i 























int i 
変数 は すでに 宣言 され て いま す 
clear 
田 
と する こと で , ji と いう 変数 の 宣言 は 解除 きれ た の で , もう一度 "int ii 貼 "と し て も 今度 は エラ ー 
に は な ら な い の で す 。 


この コマ ンド は ファ ンク ショ ン キ ー の 内 容 を 画面 に 出力 する とき に 使用 し ます 。 フ ァ ン クシ ョ 
ン キ ー と は , キー ボー ド の 上 部 に 位置 する 10 個 の キー で , キー トッ プ ' に |[ 下 1 |-「F10 | と 表示 され 
て いる も の で す 。 こ の ファ ンク ショ ン キ ー は , 一 つの キー 操作 て | F 1 |-|F10 | それぞれ に 登録 き 
れ て いる 凛 字 列 を キー 入力 し た の と 同じ 結果 が 得 ら れる , と て も 重宝 な 6 の で す 。[F1 |-|F10 
の キー は ,| SHIFT | キー を 併用 する こと で | F11 |-| F20 | に 対応 し て いて , 計 20 個 の ファ ンク ショ 
ン キ ー が あり ます 。 
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叫 = 選 | 変数 の 型 と 宣言 


X-BASIC に は , 四 つ の 型 の 変数 が あり ます 。 それぞれ の 型 は ゲロ グラ ム 中 で 変数 の 用 途 に より 
使い わけ を し ます 。 
a) char 型 変数 

char 型 変数 は , 0 一 255 ま で の 整数 を 扱う こと が で きま す 。 主 に 文字 コー ド を 扱う よう な 場合 に 
使用 きれ ます 。 文字 コー ド と 言う の は , 文字 を コン ピュ ー タ が 扱い や すく する た め に 文字 に 数 値 
を 1 対 1 対応 で 割り 付け た も の で , 一 般 的 に char 型 の 変数 1 個 で 半角 文字 (8X8 ド ッ ト や 8 メ 
16 ド ッ ト の 文字 ) の 英 数 , カナ 記号 が 表現 で きま す 。 日 本 語 の 場合 は 漢字 と いう 恐ろし い 廊 字 が 
ある の で , char 型 の 変数 一 つ で は 表現 し きれ ず に , 二 つ 使 用 し て 1 廊 字 の 全角 文字 を 表現 し ます 。 
さて char 型 の 変数 し し て , アル ファ ベッ ト の a を 宣言 し て み ま す 。 





これ で ,X-BASIC で a と いう 変数 は char 型 に 宣言 され まし た 。 この 宣言 の 方 法 は ダイ レク ト 
モー ド で の 宣言 で す が , プロ グラ ム モ ー ド で は 






と いう 形式 に な り ま す 。 基 本 的 に は , これ 以後 ゲロ グラ ム 中 で は a と いう 変数 を 再び 宣言 する こ 
と は あり ませ ん (例外 と し て , 定義 関数 内 で , 再 定義 せる と ロー カル 変数 と し て 扱わ れ , 関数 を 
ぬけ た 所 で , 関数 内 の 変数 は 削減 し ます )。 
b ) int 型 変数 

int 弄 変 数 は ー 2 ,147, 483, 648 一 2 ,147, 483.648 ま で の 整数 を , 扱う こと が で きる 変数 の 型 で 
す 。 こ の 型 の 変数 は , X - BASIC の プロ グラ ム 中 で は , 一 番 使 用 頻度 が 高く , 使用 目的 も 多様 で 
す 。 整 数 で ある と いう 制限 は あり ます が , 土 21 億 の 数 値 で すか ら , ほとん ど 桁 が あふ れる (オー 
バー フロ ー) の 心配 は あり ませ ん 。 


33 


ww 第 2 章 X-BASIC の 基礎 wwwwwwwwmvvnvnevnnenvnnunvnanynnunvnnynunenvnanvnvnamynnumvnnvmvnumvnnanvnwnenvnunvnMnenvnvmnemvnu 


この 変数 の 宣言 は . 次 の 様 に し ます (ダイ レク トモ ー ド )。 


これ を , プ ブログ ラム モー ド で 年 言 す る に は , 


と すれ ば 良く , char 型 の 変数 同様 , これ 以後 この 変数 の 宣言 は , 基本 的 に は する 必要 も な く 〈 く , ま 
た し て は いけ ませ ん 。 
c ) float 型 変数 

float 型 の 変数 は , 約 1.1X10-3% 一 3.6x10398 の 実数 の 扱い を ゆる され て いま す 。 こ れ は , 科学 
技術 計算 等 の 計算 に , 精度 が 必要 な 場合 に 使用 きれ ます 。 

この 変数 の 宣言 は 、 次 の 様 に し ます (ダイ レク トモ ー ド )。 


これ も プロ グラ ム モ ー ド で 宣言 する に は , 先頭 行 番号 を 付け て 表記 し ます 。 
d) str 型 

Str 型 の 変数 は char , int , float の 型 と は 異な り , 文字 列 を 扱う こと の で きる 変数 で す 。 女 
字 列 と いう の は , 文字 を 表す コー ド (char 型 の 時 に 説明 し た も の ) が 並ん で , 単語 に な っ た 状態 
と か , その 1 文字 で も か まい ませ ん が , 最後 に その 文字 列 の 終わ り を 表す 0 (ヌル コー ド ) を 付 
け だ た も の を いい ます 。 

例え ば , X-BASIC と いう 文字 列 の 内 容 を 解剖 し て みる と 第 2 一 14 図 の よ うに な り ま す 。 








x = ぁ 』 ec エーー 

1 ! 1 ! 1 」 ] 
1 6 進数 &H58 &H2D &H42 &H41 &H53 &H49 &H43 &H69 
1 0 進数 88 45 66 65 83 73 67 9 


文字 列 最 後 を 表す 9(zJ- ト ^ ) 











第 2 一 14 図 文字 列 の 解剖 


きる て, str 型 の 変数 に は ,。 こ の よう に いろ いろ な 文字 列 を 格納 する こと が で きま す が , 文字 列 の 
長き に は 制限 が あり ます 。 最大 で 255 文 字 ま で 格納 する こと が で きま す 。 さ て , この str 型 の 変数 
の 宣言 で す が , 次 の よう に な り ま す 。 


これ まで の char , int , float と は 違っ て , 後ろ に [10] と いう も の が つい て いま す 。 こ れ は , 
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いま 宣言 し た m と いう str 型 の 変数 は , 最大 で 10 文 字 ま で と いう こと で す 。 従 っ て , プ ログ ラム 
内 で 扱う 廊 字 列 が 50 文字 以下 と な れ ば , つぎ の よう に な り ま す 。 
str j [50] 
ここ で , [50] と いう 文字 数 の 宣言 を な くし , 次 の よう に 表現 し ます 。 





これ は 。 今 まで の 3 種 の 数 値 型 の 変数 と , 同じ 形式 に な り ま し た が , この まま で も , 32 廊 字 ま 
で の 文字 列 が ゆる る れ ま す 。 従 っ て , 廊 字 数 の 宣言 を 省略 する と, 
strp [32] 
と 同様 に な り ま す 。 プ ログ ラム モー ド で は , 行 番号 を 付け て 表記 する こと は , いう まで も あり ま 


変数 の 初期 化 


プロ グラ ム 内 で , いろ いろ な 変数 を 使用 し て , プロ グラ ム を 作成 し て いく 場合 、 それ ぞ れ の 変 
数 に , 値 を 代入 し な けれ ば な り ま せん 。 ここ で , 第 2 一 15 図 の プロ グラ ム を 見 て 下さ い 。 


せん 。 








19 Int ke… x と いう 変数 を int 型 に 宣言 

20 Int y y と いう 変数 を int 型 に 宣言 

39 xs10: ys15……x に 1 を 代入 、y に 15 を 代入 (マル チ ス テー トメ ント ) 
49 prlnt X-・・…・ x の 内 容 を ディ スプ レ に 出力 

59 prlnt y……… y の 内 容 を ディ スプ レ に 出力 

69 print x+yー…・ x の 内 容 と y の 内 容 を 加え て ディ スプ レ に 出力 

7 end プロ グラ ム の 装丁 





第 2 一 15 図 変数 の 初期 化 
ここ で , x と y と いう 変数 二 つ が , 登場 し て きま す 。 





19 int x=19,y=15 
29 print x 

39 print y 

49 print x+y 

59 end 











第 2 一 16 図 初期 化 

これ を 第 2 一 16 図 の よう に , 行 番号 10 で 二 つ っ の 変数 と 宣言 と , 初期 化 を 同時 に 行っ て いま す 。 
この よう に , 同時 に , 同型 一 つの 型 の 宣言 を 意味 する キー ワー ド (int , float, char , str ) に 
続い て , 複雑 の 変数 を , (コン マ ) で 区 切り ,。 つ づけ て 表記 する こと が で き , 同時 に = (イコ ー ル ) 
数 値 又 は 文字 列 の 形 で , 初期 化 を する こと が で きま す 。 

さき て , この プ ブログ ラム の 実行 結果 は みな る ん が 想像 し て の 通り で す 。 
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19 jint x=19,y=15 
29 print x 
39 print y 
49 print x+y 
59 end 

RUN 

19 

15 

25 

OK 

四 











第 2 一 17 図 プロ グラ ム 実 行 
第 2 一 17 図 の よう に な る わけ で す 。 

それ で は 次 に , str 型 の 変数 の 初期 化 は ぼう すれ ば いい の で し ょ うか 。 こ れ ま で は 数 値 型 の 変数 
だ っ た の で 非常 に わか りや すか っ た の で す が , 文字 列 と し な る と ちょ っ と 分 か り に くく な り ま す 。 
X-BASIC で 文字 列 は 次 の よう に 表 き れ ま す 。 

yX-BASIC" 

実際 の 中 味 と な る 部 分 は , ” (引用 符 ) を 取 除い た X-BASIC に な り ま す が , 文字 列 で ある こと を 
意味 する た め に "(引用 符 ) で か こみ ます 。 

それ で は , str 型 の 変数 に 文字 列 を 代入 し て み ま す (第 2 一 18 図 )。 





19 str a="X-BASIC”,B=”X68999” 
29 print a 

39 print b 

49 end 











第 2 一 18 図 str 型 の 変数 の 宣言 

行 番号 10 で a と b の 変数 を 文字 列 用 の 変数 と し て 宣言 し 。 な お か つ 文 字数 の 指定 が な い の で 最 
大 32 文 字 ま で と な り , 同時 に a に は "X-BASIC" が , b に は "X68000" が 代入 きれ ま て し た 。 し 
か し , ここ で 注意 し な けれ ば な ら な い の は , str 型 変数 の と ころ で 説明 し た よ うに , 攻 字 列 の 終わ 
り に は 自動 的 に 0 (ヌル ュー ド ) が 入っ て いる と いう 事 で す 。 

この プロ グラ ム の 実行 結果 は , 第 2 一 19 図 の 通り で す 。 
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19 str a="X-BASIC”,b="X68999" 
29 print a 

39 print b 

49 end 

RUN 

X-BASIC 

X68099 


OK 
年 











第 2 一 19 図 プ ブログ ラム 実 行 


さて , 文字 列 "X-BASIC" が a と いう 変数 で "X 68000" が b と いう 変数 に 代入 る きれ, a と Eb で 
表現 きれ て いる と , あたかも 数 値 ど ある よう な 錯覚 に お ちい り ま す が , 女 字 列 の 場合 は 加算 ( 結 
合 ) だ け は 許さ きれ て いま す 。 今 の プロ グラ ム に , 第 2 一 20 図 の よう に 35 行 を 追加 し て みて 下さ い 。 





10 str a="X-BASIC"”,b 王 " X58999" 
29 print a 

39 print b 

35 print a+b 

49 end 





第 2 一 20 図 第 2 一 18 図 に 35 行 を 追加 する 
これ を 実行 する と, 





RUN 

X-BASIC 

X68909 

X-BASIC X-689909 


Ok 
自 











第 2 一 21 図 文字 列 の 結合 
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第 2 一 21 図 の よう に a と b と の 内 容 が , 結合 し て 出力 され る こと が わか り ま す 。b 十 a と すれ ば 


X 68000 X-BASIC 


と いう こと に な り ま す 。 





a ) 一 次 元 配列 

話 が 少々 具体 的 に な り ま す が , 生徒 の 数 が 30 人 の クラ ス が あっ た と し ます 。30 人 が , 国語 の テ 
スト を し て , 先生 が 採点 し , 集計 に X- BASIC で プログラム を 作り 計算 きせ よう と 思い まし た 。 
それ で は , それ ぞ れ の 生徒 の 変数 を 割り 当て て み ま す 。 


10 int a =30、 b= テ 25, c=50。 …… 


あれ ? 生徒 は 30 人 で す が , アル ファ ベッ ト は 26 個 し か あり ませ ん 。 4 人 分 の 変数 が た り ま せん 。 
X-BASIC で は , 複数 の アル ファ ベッ ト の 並び を 変数 と する こと も 許さ れ て いま す が , ここ で は 1 
文字 の アル ファ ベッ ト し か 使え な いも の と し ます 。 こ れ で は , 30 人 分 の デー タ を 変数 に 格納 し て 
集計 る させ る こと は で きま せん 。 仮に , 生徒 が 25 人 で , A 一 Y まで の 変数 で 足り た と し ます 。 し か 
し , 氏 と いう 変数 は , いっ た い 誰 な の で し ょ う 。 

普通 , 生徒 に は 出席 番号 な る も の が あり ます の で , 出席 番号 と 生徒 た ち は , 1 対 1 に 対応 し て 
いま す 。 こ の よう な 場合 に , 配列 変数 を 使用 し ます 。 


配列 変数 は , 変数 の 後に ( ) (カッ ュ ) で 囲ん だ 数 字 を 入れ て 表現 し ます 。 
例え ば , 

X (10) 

( ) の 中 の 10 は , 別に 数 字 と は 限ら ず , 次 の よう に 変数 の 場合 も あり ます 。 

X (1 ) 

この 配列 変数 を 宣言 する に は , 変数 宣言 の 先頭 に , dim (ディ メン ショ ン ) と つけ 加え れ ば い 
い の で す 。 

10 dim int X (20) 

この と き ( ) カッ コ の 中 の 数 値 は 配列 の 最大 値 で , この 場合 は 0 か ら 620 ま で 21 個 の 変数 が 宮 
言 さ きれ だ こと に な り ま す 。 これ を , 先程 の 国語 の テス ト の 点 , 名 前 , 出席 番号 と し て , 表 に ま と 
め て みる と , 第 2 一 22 図 の よう に な り ま す 。 
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氏名 出席 番号 ( 変数 ) 点数 

3 よ すす.】 9 X(6) さよ 】 一 般 的 に 出席 番号 に は 0 は 
秋山 1 X(1) 59 な い 、。 

伊藤 2 X (2) 35 

上 野 3 X(3) 82 

片山 18 . X(18) 65 

深沢 28 X(28) 72 

町 田 29 X(29) 22 

森 3 X(39) 19 











第 2 一 22 図 配列 変数 と 名 前 , 出席 番号 , テス ト の 点数 の 関係 


この 時 先生 が , 
10 dim int X (30) 
と 宣言 すれ ば , めで た くく 出席 番 号 で 変数 を 指定 びき, そこ へ 国語 の テス ト の 点 を 代入 し て いく こ 
と が で きる の で す 。 
配列 変数 の 初期 化 は , 次 の よう に な り ま す 。 
10 dim int X (30) = 10, 50, 35, 82。…… 。 65。 …… , 72。 22, 19| 
中 カッ コ | | の 中 に , 配列 変数 の それ ぞ れ の 要素 に 対応 する 初期 値 を ,( コ ンマ ) で 区 切っ て 
いけ ば , を それ ぞ れ の 配列 変数 が 初期 化 き れ ま す 。 上 の 例 を . て いね い に 記 述 し て み ま す (第 2 一 23 図 )。 





19 dim int X(39) 
29 X(9)=9 

39 X(1)=59 

49 X(2)=35 

59 X(3)=82 

299 X(18)=65 

i 

499 X(28)=72 
410 X(29)=22 
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429 X(39)=19 
第 2 一 23 図 配列 変数 の 初期 化 





b) 2 次 元 配列 

今 説明 し た 配列 は , 国語 だ どけ の 1 教科 で し た が , この クラ ス で 実施 し た テス ト が 中 間 テ スト な 
ど で , 他 に 数 学 , 理科 社会 , 英語 な ども テス ト し た と する と どう で し ょ う 。 

X (30) が 国語 用 の 配列 変数 な の で , Y (30) を 数 学 と し し, Z (30) を 理科 V (30) を 社会 , W 
(30) を 英語 と し て , 次 の よう に 配列 変数 を 宣言 し ます 。 

10 dim int X (30), Y (30), Z (30), V (30), W (30) 

し か し , この 方 法 で 教科 が も っ と 増え て きた りす れ ば , 変数 の 割り 当て や , その 変数 が どの 教 
科 な の か 。 わかり に くく な っ て し まい ます 。 そこ で 登場 する の が , 2 次元 配列 で す 。 2 次 元 配列 
は , 1 次元 配列 が 二 つ あ る と 考え れ ば よく 次 の よう な 宣言 し ます 。 

10 dim int X (5,30) 

最初 の 5 は , 0 一 5 まで の 数 値 が 変化 びき る と いう こと で , 教科 を 表し ます 。 その 後 の 30 は , 
生徒 の 数 で す 。 従っ て , 次 の ょ うに 教科 と 生徒 の 出席 番号 を まとめ る こと が で きる の で す ( 第 2 一 
24 図 )。 











国語 数 学 理科 社会 英語 

出番 教科 番号 1 2 3 4 5 

秋山 1 X(1,1) X(2, 1) X(3,1) X(4, 1) X(5, 1) 
伊 座 2 (1。2) 602.2) X6952) X(4,2) X(5, 2) 
上 野 3 X(1,3) X(2,3) X(3,3) X(4, 3) X(5, 3) 

! 1 ! 1 | | | 
片山 18 X(1,18)  X(2,18)  X(3,18)  X(4,18)  X(5,18) 

! | | | | 1 | 
深沢 28 X(1,28)  X(2,28)  X(3,28)  X(4,28)  X(5,28) 
町 田 29 X(1,29)  X(2,29)  X(3,29) X(4,29)  X(5,29) 
森 39 X(1,39)  X(2,39)  X(3,39)  X(4,39)  X(5,39) 
※ 出 番 三 出席 番号 教 番 = 教 科 番号 





第 2 一 24 図 5 教科 の テス ト を 2 次 元 配列 で 表す 





この 2 次 元 配列 の 初期 化 も 1 次 元 配列 同様 に | | の 中 に , その 初期 値 を ,( コ ンマ ) で 区 切っ 
て 設定 し ます 。 
19 dim int X(5,39)=(9, 9, 9,・・・・, 9, 9,9 X(9,?) の 部 分 
2 6,34, 25,・・・, 85, 32, 18 
39 9, 48, 25,・・・・, 62, 69, 38 
) | 
50 0 } 








第 2 一 25 図 2 次 元 配列 の 初期 化 
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ここ で , 注意 し な けれ ば な ら な い の は , 配列 を 宣言 する 時 に , dim int X(1) と すれ ば , X (0), 
X (1) が 存在 する こと で す 。 初期 化 の と き に , X(0) を 忘れ る と , 全部 1 列 ず つ ず れ て し まう 
と いう こと で す 。 
c) 高 次 元 配 列 

1 次 元 。 2 次 元 と き て , つづ いて を その他 の 配列 で す が , 宣言 の 仕方 は 今 ま で と 特に 代わ り ま せ 
なぁ 

dimintX(8, 5, 30) 

先程 の 例 に , 8 クラ ス の テス ト の 集計 が で きる よう に し た と 思 を ば いい の で す 。 い いか えれ ば , 

(5。30) 
と いう 配列 が 8 個 あ る と 思 を ば いい の で す 。 こ の 配列 を こと ば で 表現 すれ ば ,「 1 クラ ス 30 人 で 
8 クラ ス で て 実施 し た 5 教科 の テス ト の 点数 を 格納 する こと が で きる 変数 」 と な り ま す 。X-BASIC 
の 文法 的 な 制約 し し て は , 高 次 元 配 列 は 255 次 元 ま で 扱う こと が 可能 な の で す が , XX-BASIC の 1 
行 の 文字 数 の 制限 が 255 文 字 な の で , その よう な 長い 配列 を 宣言 する 文 が 書け な い の は わか っ て い 
た だ ける と 思い ます 。 

余談 と し なり ま す が , 8 クラ ス で 1 学年 な ら ば , 1 年 生か ら 3 年 生ま で も 格納 で きる 配列 や , 4 
次 元 配 列 で 可能 に で きま す 。 

dim intX( 3 8 $・ 30 ) 

学年 クラ ス 教科 出席 番号 


| その 他 の 変数 の 注意 


変数 は , 皿 つ の 型 の 他 に , ロー カル 変数 と し グロー バル 変数 し いう わけ 方 が あり ます 。 こ れ は , 
前 述 の 四 つ の 型 と は 関係 な く .、 プロ グラ ム 中 に その 変数 が どの 位置 に ある か , また どの 位置 で 宣 
言 さ きれ た か に より 決定 きれ ます 。 こ れ は , 従来 の BASIC で は 変数 は 使い す て の も の だ っ た の で す 
が ,X-BASIC で は プロ グラ ム 中 で 使用 する 変数 は 必ず 宣言 し な けれ ば な ら な い の で , プロ グラ ム 
作成 時 に は プロ グラ マー の 管理 の も と で , それ ら の 変数 を 扱わ な けれ ば な ら な いと いう こと で す 。 
具体 的 に いう と , メイ ンプ ログ ラム 内 と 関数 内 で 宣言 され た 変数 の こと で , それ ぞ れ は まっ た 
の 異 次 元 で , その 橋渡し は 引き 数 と 戻り 値 で す 。 詳 し く は , 2 一 3 一 4 て 解説 し ます 。 
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c-d 関 数 











数 学 で いう 関数 と は , 例え ば 

y デ f(x) 
と 表現 し ます 。「f(x) =ax 填 b の グラ フ を 書き な る い 」 と いう よう な 時 は , 一 般 的 に は 最初 に 
x=0 を 代入 し , グラ フ 上 に f(0) を 計算 し て プロ ッ ト し , 次 に x =1 を 代入 し , f (1 ) の 計算 
に より も う 一 つ グ ラフ 上 に プロ ッ ト し て それ を 直線 で 結び まし た 。 こ れ は ,y= テ ax 十 b と いう の 
が , 直線 の 方 程 式 び で ある こと を 知っ て いる た めで , 実際 は f (2) と 表現 し て いる の で , その 内 容 
は わか り ま せん 。 そん な 理由 か どう か , 関数 の こと を ある 数 値 を 入れ る と , 何 か 加 工 を し て 出力 
し て くる プ ブラック ボッ クス で ある と 言わ れる こと も あり ます 。 

ここ で 重要 な こと は ,「 あ る も の を 入れ る と , 何 か 加 工 さ れ て 出力 し て くる 」 と いう 単純 な こと 
で す 。 こ の 「 あ る 物 を 入れ る 」 と いう 入れ る も の を 引数 と いい,「 加 工 さ れ て 出力 し て くる 」 の 出 
力 は 戻り 値 と いい ます 。 

引数 は , f(x) の x の こと で , f ( x ) 全体 が 戻り 値 し な り ま す 。y=f(x) と 表現 し た y= 
の y は あく まで も 戻り 値 を y に 代入 し た も の で , f(x ) 全体 で 戻り 値 し な る の で す 。 

さて X-BASIC で は , 様々 な 命令 (X 68000 の 諸 機能 を 使用 する ) を 関数 の 形 で 実現 し て いま す 。 
また , X-BASIC で は 与え られ た 関数 (付属 の も の ) 以外 に も , 自分 で 定義 し た 関数 を 使用 する こ 
と が で きま す 。 













SHE 
X-BASIC の 関数 の 種類 は , 大 きく わけ て 次 の 4 種類 が あり ます 。 
1 ) 標準 関数 

これ は , X-BASIC 内 に 初め か ら 内 蔵 き れ て いて , 廊 法 さ ぇ 間違え な けれ ば 何 の 定義 や 宣言 等 を 
し な く て も 使用 で きる 関数 で す 。 関数 の 内 容 は , 主 に X-BASIC の 基本 的 な 操作 , 演算 , フ ァイル 
操作 , デー タ 変 換 な ど で す 。 

2 ) 外部 関数 
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これ は ,。 X 68000 の も つ 機 能 を 充分 発揮 で きる よう に , X68000 の ハー ドウ エア に , 密着 し た 内 
容 の 関数 で す 。 こ の 外部 関数 は , X-BASIC の 起動 時 に , "BASIC. CNF" と いう ファ イル に , 
登録 きれ て いる 外部 関数 を 組み 込む た め , 初め か ら 6 X-BASIC の プロ グラ ム 中 に は 入っ て いま せん 。 
外部 関数 は , 第 2 一 26 図 の よう な 種類 に 分 類 さ きれ て いて , X 68000 の 機能 別に 管理 きれ て いま す 。 





ファ イル 名 
・ グ ラフ ィ ッ ク 関 数 GRAPH. FNC 
・ ス プラ イト 関数 (スプ ライ ト ) SPRITE. FNC 
・ ミ ュー ジッ ク 関 数 (FM 音源 ) MUSIC. FNC 
・ オ ー デ ィ オ 関数 (ADPCM) AUDIO. FNC 
・ マ ウス 関数 MOUSE. FNC 
・ ジ ョ イ テ ッ ク 関数 STICK. FNC 











第 2 一 26 図 X68000 の 外部 関数 


従っ て , "BASIC. CNF" に 登録 きれ て いな い 関 数 は 使用 で きま せん 。 こ れ ら の 関数 群 は , 一 . 
FNC と いう ファ イル で シス テム フロ ッ ピ ー の BASIC の ディ レク トリ 内 に あり ます 。 

3 ) 定義 関数 

標準 関数 や 外部 関数 や . を その他 の ステ ー ト メン ト に より , プ ログ ラム を 作成 する 際 , 従来 り BASIC 
の サブ ルー チン 的 な も の を , X-BASIC プロ グラ ム 中 に 関数 と し て 定義 せる こと が で きま す 。 こ れ 
は ,。 ステ ー ト メン ト の func - endfunc を 使用 する こと に より , 関数 化す る こと が で きま す 。 

4 ) 外部 定義 関数 

外部 関数 は , 68000 用 の アモン ブラ に より 作成 され て いま す が , ユー ザー の 努力 し だ いで 外部 関 
数 同様 に , 自分 どけ の 外部 関数 を 作成 する こと が で きま す 。 こ の 方 法 に つい て は , 第 4 章 で 詳細 
を 説明 し ます 。 





関数 に は , 引数 と 戻り 値 が あり ます 。 こ れ は 2 一 3 一 1 で も 説明 し た 通り で す が , それ ぞ れ 引 
数 , 戻り 値 だ が だ どの よう な 型 の 数 値 。 ま た は 文字 列 等 で ある か は , これ ま て 説明 し た 通り 変数 の 型 
を プロ グラ マー が 管理 する BASIC で ある た め , 非常 に 重要 な こと に な っ て きま す 。 

標準 関数 及び 外部 関数 で は , マ ニュ アル に その 関数 の 引数 と 戻り 値 の 型 が 説明 され て いま す が , 
定義 関数 で は , ユー ザー が func 一 endfunc に より 定義 す る の で , その 関数 の 引数 , 戻り 値 に より 
型 の 宣言 を し な けれ ば な り ま せん 。 こ の 場合 , 関数 の 型 に あたる の は 戻り 値 の こと で , 2 一 3 一 
1 で 説明 し た 通り に 関数 f (x ) は それ 全体 が 戻り 値 ど ある こと か ら , 関数 f(x) の 型 と いう の 
は 戻り 値 の 型 の 宣言 に な り ま す 。 引 数 の 型 宜 言 は , 引数 の 前 に 一 般 の 変数 の 型 宣 言 同様 に , 四 つ 
の 型 の いずれ か を 使用 し て いる も の を お く こ と て 完了 する わけ で す 。 た だ し , X-BASIC で は 引数 
に 配列 を 使用 する こと は , 原則 的 に 不可 能 で ある た め 直 接 引 数 を 配列 と せ ず , 配列 変数 は グロ ー 
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バル 変数 と し て , メイ ンプ ログ ラム に 置い て 下さ い 。 

ここ で , X-BASIC の ゲロ グラ ム を 大 きく 二 つ に わけ て み ま す 。 一 つ は メイ ンプ ブロ グラ ム で , プ 
ログ ラム 全体 の 核 と な る も の で , 一 応 は この メイ ンプ ログ ラム で どん な 事 を する の か が つか め ま 
す 。 も う 一 つ は 関数 で . ここ で いう 関数 と いう の は 定義 関数 の こと で , X-BASIC プロ グラ ム に よ 
り ユ ー ザ ー が 作っ た も の を る し まし す 。 X-BASIC で は , 定義 関数 は end ステ ー ト メン ト (プロ 
グラ ム 終 了 ) 以降 に 関数 を 置か か な けれ ば な ら な いと いう 約束 が あり ます 。 し た が っ て , 全体 の 配 
置 を 図示 する と 第 2 一 27 図 の よう な 形 に な り ま す 。 





メイ ンプ ログ ラム 


end 

func-- 

関数 1 ] 関数 1 
endfunc 

func-- 

関数 2 ] 関数 2 
end func 

func-- 

関数 3 ] 関数 3 


end func 











第 2 一 27 図 X'BASIC プロ グラ ム の 構成 


具体 例 し し て , これ まで に 出 て きた ステ ー ト メン ト だ け で 定義 関数 を 使用 し て 復習 し て み ま す 。 





19 int x=19, y=15, z 
29 print x 
39 print y 


49 z=tasizan(x,y) 





44 


MnMnvnunnvmvmvmvnvnununummvmvmvnumumumwnvmvnunummnwnynvnvnemvnnvnvnvnvnwnnvnvnvnvnvnumumumvnvnvnvmununnvmvmvnvnumunun 2ー3 関数 ww 


59 print z 

69 end 

199 func int tasizan(xjint,yjint) 
119 return(x+ ッ ) 

129 endfunc 











第 2 一 28 図 定義 関数 サン プル 例 


ここ で , 新た に z と いう 変数 を 宣言 し て いま す が , これ は tasizan( ) と いう 関数 の 戻り 値 を 
格納 する 変数 で , 特に z を 宣言 せ ず に 50 行 で print tasizan(x, y) と し て 良い の で す が , y = 
f(x) の 型 に し た 方 が わか りや すい の で z に 代入 し まし た 。 

さて, この プロ グラ ム の 実行 結果 は , 第 2 一 29 図 の 様 に な り ま す 。 





RUN 
19 
15 
25 
OK 
邊 











第 2 一 29 図 プロ グラ ム 実 行 


プロ グラ ム の 流れ を 最初 か ら 説明 し て いき まし ょ う 。10 行 目 は 各 変 数 の 宣言 で , x は 初期 値 を 
10 と し y は 15 と し て , z に は 初期 値 が な い の で 自動 的 に 0 に な り ま す 。20, 30 行 目 は x と y を 画 
面 へ 表示 し て いま す 。 さ て , 40 行 目 か ら は ここ で の メイ ン イ ベン ト で , tasizan( ) と いう 関数 
の 戻り 値 を 代入 し て いま す 。 代入 きれ る 戻り 値 , 即 ち tasizan( ) は , どの よう な も の か と いう 
と , 引数 が 二 つ あ り そ れ ぞ れ x, y が 与え られ て いま す 。 こ の よう に , 引数 は いく つ あ っ て も 構 
わな い の で , 自分 で 必要 な 情報 を 引数 と し て , 関数 に 与え て 複雑 な 仕事 を 関数 に 実行 きせ る こと 
が で きま す 。 こ こ で は , た だ 二 つ の 引数 を 加算 し て , その 結果 を 戻り 値 と し て 返す だ け で す 。 を 
の 関数 の 内 容 は , 100 行 目 一 120 行 目 で 定義 きれ て いま す 。 定義 関数 は , func 一 endfunc で 囲ま れ 
た 部 分 し いう こと に な り ま すか ら , この 関数 の 作業 は 110 行 目 の retunrn (xy) と いう こと に な 
り ま す 。 ち な み に , 100 行 目 の 関数 の 型 宣 言 と 引数 の 型 宣 言 は ご 覧 の 通り で す 。 return ( ) と い 
うぅ の は , 関数 内 だ け に 存在 する ステ ー ト メン ト で , ( ) 内 の 値 を 戻り 値 に する と いう こと で す 。 
10 十 15 の 25 が tasizan(x, y) の 戻り 値 な の で , z = ニ 25 と いう こと に な り ま す 。 
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2 一 2ー4 て 紹介 し た グロ ー バ ル 変 数 と ロー カル 変数 で す が , これ は 関数 と 非常 に 深い 関係 が 
あり ます 。 第 2 一 30 図 を 見 て 下さ い 。 





19 int a=5,x 

2 x=f(a) 

39 print x 

49 end 

199 func int f(ciint) 
119 jint b 

129 b=c-1 

139 return(b*b) 

149 endfunc 











第 2 一 30 図 グロ ー バ ル 数 と ロー カル 数 


この プロ グラ ム は , グロ ー バ ル 変 数 と ロー カル 変数 の 両方 を 使用 し て いま す 。10 行 か 640 行 の 
end まで が メイ ンプ ログ ラム で 100 行 目 以降 が 定義 関数 で す 。 メイ ンプ ログ ラム 中 の ax が グ 
ロー バル 変数 と な り 関 数 内 の b と c が ロー カル 変数 と なり ま す 。 

ここ て 関数 を 定義 する 時 に 注意 し な けれ ば な ら な い の は , この プロ グラ ム 中 の 変数 a と c は 引 
数 の 渡す 側 と 渡る れる 側 の 関係 で , 同一 の 変数 ど で は な いと いう こと で す 。 こ の {(x ) と いう 関数 
は 引数 が 一 つ で すか ら , カン コ 内 の 数 値 ま た は 変数 は 一 つ し か あり ませ ん 。 渡 す 側 と ,。 渡 き れる 
側 と で 間違え る こと は ほとん ど あ り ま せん 。 複数 の 引数 に な っ た と き は , カッ コ 内 の 引数 の 順番 
が 重要 な 情報 に な り ま す 。 渡 す 側 と 渡さ れる 側 の 引数 で 重要 な こと は , 変数 に 使用 し た アル ファ 
ペット で は な てく , 引数 の 個数 と 順番 な の で す 。 こ の こと か ら 6, 引き 数 に 使用 し た アル ファ ベッ ト 
は , メイ ンプ ログ ラム と 関数 定義 の 時 の 変数 と 一 致し て いて も , 一 致し て いな く て も 構わ な い の 
で ま 。 

き て , この プロ グラ ム の 実行 結果 は 次 の 通り で す 。 a に 5 が 代入 きれ て , 関数 f( ) に 渡 き れ 
関数 の 引数 の c に 代入 る れ ま す 。 関 数 内 で , int 型 の ロー カル 変数 と し て 宣言 きれ た b へ c の 内 容 
か ら 1 引 いた も の が 代入 され 戻り 値 と し て return ( ) の ( ) 内 で b が 2 乗る され て 戻り ます 。 

TU 

16 

ok 

男 
も う 少 し ロー カル 変数 と グロ ー バ ル 変 数 だ が わか りや すく な る 様 に 今 の プロ グラ ム を 第 2 一 31 図 
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の 様 に 変更 し ます 。 





19 jnt a=5,x 

29 x=f(a) 

39 print x 

49 end 

199 func int f(xi int) 
119 int a 

129 a=x-1 

139 return(a*a) 
149 endfunc 

Fun 

16 

還 











第 2 一 31 図 変数 を 2 関数 に 変更 


この プロ グラ ム で は , 先程 4 種類 あっ た 変数 が a と x の 2 種類 に な っ て いま す 。10 行 か ら 40 行 
まで の メイ ンプ ブロ グラ ム 内 の 変数 a と x は グロ ー バ ル 変 数 で , 100 行 か ら 140 行 まで の 定義 関数 内 
の a と x は ロー カル 変数 で , お 互い に 変数 名 は 同一 で す が , 違う 変数 で す 。 こ れ を 時 系 列 的 に 廊 
章 で 説明 する と, 第 2 一 32 図 の よう に な り ま す 。 





10 行 int 型 の 変数 で a と x を 宣言 し て a に は 5 を 代入 し た 。 

20 行 f( ) の 関数 呼出し を , 引数 の a=5 と し て 渡し , 戻り 値 は x に 代入 され る 。 

100 行 f( ) の 関数 を int 型 で 宣言 し 引数 x を int 型 で 宣言 する 。x に は a=5 が 代入 る きれ x=5 
と な る 。 

110 行 関 数 内 で ロー カル 変数 a が int 型 で 宣言 する 。 

120 行 x が ら 1 引 いた も の を a に 代入 。 

130 行 a の 2 乗 を 戻り 値 と し て , 関数 を 終了 する 。 

30 行 戻り 値 を 代入 し た x を 画面 へ 表示 する 。 

40 行 プロ グラ ム を 終了 。 











第 2 一 32 図 第 2 一 31 図 の 説明 

この 例 で も わか る 様 に , a と x と いう 変数 に は 2 種類 の 変数 が 存在 し て いま す 。 ロ ー カ ル 変 数 
は , 関 数 内 だ け で し か 存在 出来 ませ ん 。 第 2 一 33 図 の プロ グラ ム は , 同一 の 変数 名 の 値 を 見 る こ 
と が 出来 る も の で す 。 





19 int a=5,x 
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29 x=f (a) 

39 print a 

49 print x 

59 end 

199 func int f(x:int) 
119 jnt a=1 

129 print a 

139 return(x) 

149 endfunc 





FUn 

1 1 20 行 の 結果 
5 …・3 0 行 の 結果 
5 …・4 0 行 の 結果 
OK 

是 








第 2 一 33 図 同一 の 変数 名 の 値 を 表示 


メイ ンプ ログ ラム 内 の a は 5 を 代入 し た の に も か か わら ず 関 数 内 で a = 1 と し て print 文 で も 1 
を 表示 し て いま す 。 メ イン プロ グラ ム に 戻り a を print る させ る と 5 に な っ て いま す 。 

さて , グロ ー バ ル 変 数 と ロー カル 変数 も 少し ずつ わか っ て きた と 思い ます が , 引数 を 持た な い 
関数 の 場合 に つい て も 解説 し て み ま す 。 一 般 的 に 関数 と いう の は , 引数 に 対し 戻り 値 が あっ て は 
じ め て 意味 や も つの で す が , X-BASIC で は 関数 の 呼び 出し を する こと に 意味 が ある 場合 が あり ま 
す 。 こ の よう な 場合 に は , その 関数 に は , 引数 が 必要 な か っ た り , 戻り 値 が な い 様 な 事 が あり ま 
す (第 2 一 34 図 )。 





19 int x=10 

29 f() 

39 print x 

49 end 

199 func f() 

119 print "関数 1” 
120 endfunc 











第 2 一 34 図 引数 を 持た な い 関 数 の 場合 
この 例 で は , 従来 の BASIC で いう サブ ルー チン の よう な も の で , print "関数 1 "と いう 処理 
を メイ ンプ ログ ラム で 実行 し な いで , 関数 で 処理 きせ て いま す 。 も ちろ ん こん な 場合 に は , return 
( ) は な く , endfunc に より 関 数 を 抜け 出し ます 。 
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-4 制御 構造 と ステ ー ト メン ト 





従来 の BASIC で は , 関数 の 扱い が 曖 味 び で あっ た な ため, ほとん ど が メイ ンプ ログ ラム と サブ ルー 
チン の 関係 で 処理 あ もし て いま し た 。 その 核 し な る の が ステ ー ト メン ト で す 。 ス テー トメ ント と い 
う の は プロ グラ ム を 構成 する も の で , 各種 の 命令 群 で す 。X-BASIC で は , この 命令 群 の 代わ り に 
関数 で 各 処 理 を 実行 し ます 。 その た めか ヵ か 従来 の BASIC で いう ステ ー メ ント の 数 が 減っ て いま す 。 
その 中 に , これ まで あま りお 目 に か か ら な か っ た 制御 構造 が 加わ っ て きま し た 。 制 御 構造 と いう 
の は プロ グラ ム の 流れ を 変え る も の で , ブログ ラム で は 重要 な 地位 を 占め て いま す 。 こ こ で は , 
この 制御 構造 し ステ ー メ ント に つい て 解説 し ます 。 


2 制御 構造 


BASIC の プロ グラ ム は 。 行 番 の 小さ い 順 に プロ グラ ム が 実行 きれ ます 。 こ れ は , 双 -BASIC で 
も 同じ で す 。 こ の 行 番号 の 小さ い 順 と いう 約束 を 破る 役 日 を する の が 制御 構造 な の で す 。 従来 の 
BASIC で は , 行 番号 の 順 庁 を 変え る だ ため goto 一 , gosub 一 文 が 使わ れ て きま し た 。goto 一 , gosub 一 
で 必要 と する 情報 は 飛ん で 行く 先 の 行 番号 で す 。 こ れ で は , 行 番号 に 依存 する プロ グラ ム に な っ 
て し まい ます 。X-BASIC で は これ ら の goto 一 , gosub- を 使用 せ ず に プロ グラ ミン ク グ 出 来る 様 に , 
次 の よう な 制御 構造 命令 が あり ます 。 








a) と e) は プロ グラ ム の 流れ を 変え る も の で , b) 一 d) は 繰り 返し 作業 な ど に 使用 きれ る ルー 
プ の 命令 で す 。 
a) i (条件 式 ) then (処理 1 ) else (処理 2 ) 

これ は , 条件 式 が 正しけれ ば ( 真 な ら ば ) 処理 1 を , 間違っ て いれ ば ( 偽 な ら ば ) 処理 2 を 、 
実行 し ます 。else が 無い 場合 に は , 処理 2 も 無く な り 次 の 行 へ 処理 が 移り ます 。 こ の 制御 構造 命令 
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は 従来 の BASIC に も あり , その 場合 に は 処理 1 や 処理 2 の 所 で goto 一, gosub 一 と 処理 を 移し 
て いま し た 。 しかし, X-BASIC で は goto, gosub を 使用 し な いで 済む よう な 工夫 が され て いま す 。 
も と も と goto, gosub で 他 の 場所 に 処理 を 移す ほう が 不 自然 で , その 場所 に 十分 処理 を こなせ る ス 
ペー ス が あれ ば , 何 も 培 う 場 所 へ 行っ て し な く て も いい 訳 で す 。 そこで, X-BASIC で は 変数 の 初 
期 化 で も 使用 し た , | | (中 カッ ユ ュ ) を 使い ます 。 こ の | | (中 カッ ュ ) は 。 | と | で 別 な 
行 に まだ が っ て いて も いい こと か ら , 第 2 一 35 図 の 様 な 使い 方 が 出来 ます 。 





19 int x=15,y=19 

29 if x>y then (z=x-y 

30 ァ = ァ +1 

40 print-Zz 

59 ) else(z=y-x 
60 ァ Z=Z+1 
79 print z 
89 2 

99 end 

run 

6 

ok 

血 











第 2 一 35 図 | | で 複数 行 に また が っ た 処理 を 指定 で きる 

これ は , 20 行 目 の 後 半 に ある | か ら 50 行 上 日 の 先 頭 の ! 迄 が 処理 1 で 、50 行 日 後半 の | か 
ら 80 行 日 の ! が 処理 2 となり ま す 。 こ の プロ グラ ム は , x と y の 大 小関 係 か の ら そ の 条件 に あっ た 
計算 を きせ る プロ グラ ム で す 。 こ の プロ グラ ム で は , | | の 中 が 3 行 な の で 比較 的 楽に 解釈 で き 
ます が , も っ と 複雑 に な っ た 場合 は 関数 に より 計 一 then 一 else の 中 を すっ きり させ ます 。 

この 辺 が わか っ て くる と X-BASIC の プ ブログ ラム も 覚え る の が 早く な っ て きま す 。 

せ ーthen 一 else の 小さ きい ス ペー ス へ | | (中 カッ ュ ) を 使用 し て 全て の 処理 を すま せ て し まう こ 
と が , 一 then 一 else に 限ら ず と どの 制御 構造 に も ちあ て は まる 重要 な こと で す 。 


b) for (処理 ) next 

ある 処理 を 繰り 返し 実行 し な けれ ば な ら な いよ うな 場合 , ルー プ の 制御 構造 を 使い ます 。 前述 
の よう に ルー プ の 制御 構造 は 3 種類 あり , この for 一 next は ルー プ ' す る 回 数 が わか っ て いる 様 な 場 
合 に 使用 し ます 。 こ の for 一 next に よる ルー プ は 従来 の BASIC に も あっ て , よく 知っ て いる 人 も ちい 
る が と 思い ます 。 しかし, この 制御 構造 は 従来 の BASIC で も 行 番号 に 管理 きれ な い 制 御 構造 で あ 
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っ た こと に 気が付い た 方 は 少な いと 思い ます 。for 一 next は , 
for 初期 値 to 終了 値 
処理 
next 
この よう に , for か ら next ま で 囲ま れ た 処理 を , (終了 値 一 初期 値 ) の 回 数 だ け ル ー プ し ます 。 実 
際 の プロ グラ ム は 第 2 一 36 図 の よう に な り ま す 。 








19 int x 

29 for x=l to 19 
39 print x 

49 next 

59 end 











第 2 一 36 図 for-next サ ンプ ルプ ログ ラム 
これ は , 第 1 章 で も 出 て きた for 一 next の 使用 法 で も - 番 簡単 な 使い 方 で す 。30 行 の print 文 が 1 
か ら 10 ま で 変数 x を 変化 し な が ら 繰 り 返 し ます 。 し た が っ て , 1 行 の print 娘 も 10 行 分 の 仕事 を し た 


た こと が わか り ま す 。 





OO oO = の Q パ モ OO いい ピ ゴ 
「=1 
コ 


(= 
要 。 G 











第 2 一 37 図 実行 結果 
この for 一 next に よる ルー プ は 非常 に 単純 に ルー プ を 作る こと が 出来 る た め 、 たいへん 面白 い 使 
い 方 を する こと が あり ます 。 あ る プロ グラ ム で 少し の 間 プ ログ ラム に 止ま っ て いて も ら っ て , 現 
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在 表示 中 の コメ ント を みて も らい た い 様 な 場合 , 次 の よう に ルー プ 回 数 を 多 目 に し て プロ グラ ム 
の ウェ イト を か けた だ り し ます 。 
表示 処理 
行 番号 forx =0 to1000 : next 
表示 を 消す 処理 
ウェ イト する 時 間 は 終了 値 の 1000 や 少な くす れ ば 短く な り , 多く すれ ば 長く な り ま す 。 
この for 一 next に よる ルー プ で 注意 し な けれ ば な ら な い の は , for 一 next の 初期 値 を 代入 する 変数 
は int 型 で な けれ ば な り ま せん 。 ま た 従来 の BASIC で は ルー プ す る 際 の カウ ント 幅 が 自由 に 設定 で 
きだ の に 対し 、 一 つ し か カウ ント アッ プ 出 来 ま せん 。 従 っ て 一 つ ず つ カ ウン ト ダ ウン し た い 様 な 
場合 は 第 2 一 38 図 の よう な 演算 し な けれ ば な り ま せん 。 





19 jnt x,y 

29 for x=9 to 5 
39 y=5-x 

49 print y 

59 next 

69 end 


run 
5 
4 

3 
2 
1 

9 


ok 
邊 





第 2 一 38 図 初期 値 を 一 つ ず つ 減 らし て いく 場合 
まだ た - つ ずつ 増やす 場合 は 、 第 2 一 39 図 の よう に な り ま す 。 





19 int x, ッ 

29 for x=9 to 5 
30 y=2 ォ x 

49 print y 

59 next 
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第 2 一 39 図 初期 値 を 二 つ ず つ 増 や す 場 合 

この 様 に ー つ ずつ し か カウ ント アッ プ 出 来 な いた め に 人 色々 な 工夫 を 要求 きれ ます の で , みな さる 
ん もち 自分 自生 で 色々 確認 し て みる 必要 が あり ます 。 

これ まで は 基本 的 な こと で し た が , 実際 に は こん な 簡単 な ルー プ ば か り で は あり ませ ん 。for 一 
next の 外側 に for 一 next が ある 様 な 2 重 ル ー プ や ,、 また その 外 に for 一 next が ある 3 重 ル ー プ な ど 
が 必要 に 迫 ら れ て 出 て くる 事 $ も あり ます 。 こ ん な 場合 、 あわて ず に 一 番 内 側 の ルー プ か ら 理 解す 
れ ば 少し ずつ わか っ て くる と 思い ます 。 





10 jint x,y,Z 

29 for x=9 to 1 

39 for y=9 to 1 

40 for z=9 to 1 
59 Print x*109+y*109+Z 
69 next 

79 next 

89 next 

90 end 

run 

9 

1 

19 

11 

199 
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191 
116 
111 
ok 
還 











第 2 一 40 図 for--next の 三重 ルー プ 

な に や ら 2 進 法 の よう な 感じ が し ます 。 こ れ は , 三 つ の 変数 が 順に 0 と 1 に 変化 し な が ら , 一 
番外 側 の 変数 が 100 倍 , 二 番 目 の 変数 は 10 倍 、 三 番目 の 変数 は その まま で 加え た も の を 表示 し て い 
ます 。 ル ー プ を 重ね る こと で , こん な 面白 い 事 も 出来 ます 。 な お ぉ お,、 この プログラム で , ルー プ が 
内 側 に な る ほど ステ ー メ ント を 書く 位置 が 後 の に な っ て いま す が , これ は イン テン ト と いっ て 処 
理 の 深 さ る を 表し て いま す 。 今 どの 位置 に いて どん な 仕事 を し て いる か な ど が , 記述 し て ある 位置 
に よっ て わか り ま すか ら 非 常に 見 や すい プロ グラ ム に な り ま す 。 こ の 場合 も , 深き に 依っ て 今 ど 
の ルー プ に いる か な ど が 表面 に 出 て きま す 。 
c) while (条件 式 ) endwhile 

ここ か ら は , 今 ま で の BASIC で は あま りみ か け な い 制御 構造 で す 。 こ の 命令 も ループ す る 制御 
構造 で す が , 条件 式 が 満た され て いる 時 だ け 繰 り 返 し ます 。 し た が っ て ルー プ し な が ら 段 々 情報 
が 変化 し て いく よう な ルー プ て 使用 し ます 。 基 本 動作 は まず 最初 に 条件 式 で 、 ルー プ 内 の 処理 を 
する か ルー プ せ ず に 次 へ 行く か を 判定 し ます 。 条 件 式 で の 判定 は 、 一 then 一 else と 同様 に 条件 式 
が 上 正しけれ ば ルー プ 内 の 処理 を し 、 庄 し てく な けれ ば endwhile 以 降 へ 処理 が 移り ます 。 第 2 一 41 図 
の プロ グラ ム て 確認 し て 下さ きい 。 





19 int x=5 

29 mhile x<10 
39 print x 

49 x=x+1 

59 endwhile 
69~ end 

run 

5 


5 
7 
8 
9 
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ok 





第 2 一 41 図 while-…endwhile サ ンプ ルプ ログ ラム 

変数 宮 言 の と き に 5 を 代入 し た 変数 x は while に 入る と ころ で , 条件 x<10 で 判定 され ます が , x 
は 10 よ り 小 さい の で while 内 に 入り ます 。30 行 目 で x が 表示 され , 410 行 で x が 1 加算 きれ 20 行 の while 
の 所 へ も どり ます 。 こ うし て x が 一 つ ず つ 加 算 き れ て いっ て 10 に な り 020 行 の while へ 戻っ た 時 , 条 
件 式 は x く 10 を 間違え と 判定 し ます 。 し た が っ て while 内 に は 入ら ず endwhile の 次 の 行 60 行 の end へ 
進み プロ グラ ム を 終了 し ます 。 
d) repeat (処理 ) until (条件 式 ) 

これ は while 一 endwhile と 非常 に よく 似 た ルー プ で す が , 条件 判定 が ルー プ の 終わ り に あり , ま た 
条件 が 満た され る まで ルー プ を し ます 。 し た が っ て , while 一 endwhile で は 条件 次 第 で は 一 度 も ん 
ー プ 内 部 を 通ら な い 事 も あっ た の で す が , repeat 一 until で は 最低 一 回 は 、 ルー プ 内 を 通過 し ます 。 


第 2 一 42 図 の ブログ ラム で 条件 式 が 満た され る まで ルー プ す る こと を 確認 し て 下さい 。 





19 int x=5 

20 repeat 

39 print x 

4 x=x+1 

59 until x>16 ・…… 判 定 が 逆 に な っ て いる 事 に 注意 し て 下さ い 。 
69 end 


テー の ら 6 6 ココ の の さ 


9 
0k 
自 


第 2 一 42 図 repeat--until-- サ ンプ ルプ ログ ラム 

この よう に , while と repeat 女 を 使い 分 ける こと で より 効率 の 良い ブロ グラ ム を 記述 する こと が 
出来 ます 。 

き て , ここ で while 廊 と repeat 廊 の 面白 い 使い 方 を 紹介 し ます 。 従 来 の BASIC で は 無限 ルー プ を 
作る 場合 goto を 使い 前 の 行 へ 処理 を 戻し まし た が X-BASIC で は いま 紹介 し た while 女 や repeat 
文 を 使う 事 が 出来 ます 。while, repeat で 無限 ルー プ を 作る と いう の は , それ ぞ れ の 条件 式 が 何 回 
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ルー し て も 満た され な けれ ば 良い の で す (while 女 で は 常に 真 , repeat 文 で は 常に 偽 )。 


while 1 repeat 
処理 処理 
endwhile until 0 


この よう に 記述 を する と 処理 は 無限 に 繰り 返さ れ ま す 。 第 2 一 43 図 の プロ グラ ム を 実行 し て み 
季 P' 二 Ns 





19 while 1 
29 print "無限 ルー ププ” 
39 endwhile 
49 end 

run 

無限 ルー プ 
無限 ルー プ 
無限 ルー プ 
無限 ルー プ 
無限 ルー プ 
無限 ルー プ 











第 2 一 43 図 無限 ルー ププ ログ ラム 
この プロ グラ ム を 停止 する 時 は 、 [BREAK | キー を 押し て 止め て ドド さい 。 こ の 無限 ルー プ で の 
条 伯 式 が 1 と いう の は 、X-BASIC が 条件 式 も 正しい か 正しく な いか を 0 か 0 で な いか に 依っ て 行 
っ て いる た めで 条件 式 の 代わ り に 1 と 置い て し まう こと で 判定 が 常に 正しい と 解釈 きれ る た め 
で す 。 
e) switch (条件 式 ) 
case : 処理 1 
case : 処理 2 
case : 処理 3 
default : 処理 n 
endswitch 
何やら 今 ま で に 見 た こと も な いよ うな 制御 構造 で す 。a) の 立 女 と 同じ 分 類 に な る 制御 構造 で , 
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処理 の 分 岐 を する も の で す 。 下 娘 と 達 う と ころ は , 下 娘 の よ に 処理 が こつ に 分 岐 す る の で な く , case 


に 続く 式 や 値 と switch に ある 条件 式 と を 比較 し 、 


- 致 し て いる 場合 に を その case に 続く 処理 を 実行 


し ます 。 第 2 一 44 図 の プロ グラ ム で 動作 を 確認 し て 下さ い 。 








19 int x=3 

29 switch x 

39 case 1:print 
49 case 2:print 
59 case 3:print 
69 endswitch 

79 end 

run 

lemon 

ok 


Wa 
"orange” 


”lemon”" 








第 2 一 44 図 switch 文 サン プル プロ グラ ム 
この プロ グラ ム で は ,。 x と いう 変数 に 初期 値 3 を 代入 し て switch 文 に 突入 し ます 。switch 婦 で の 


条件 式 は x な の で 


この x と それ ぞ れ の case の 式 と が 順番 ( 行 番号 順に ) 比較 きれ て 致し た も の 


に つい て , を の case 文 が 実行 きれ ます 。 したがって, x= 3 で すか ら case3 : で 致し ます か ら print 
*jemon” が 実行 きれ ます 。 こ の よう に , いく つか の 処理 を 条件 に より 分 岐 き させ る 役 晶 を し ます 。 
し か し , 使い 方 に 珍 寺 注意 が 必要 で す 。 介 の プロ グラ ム で , 第 2 一 45 図 の 様 に 初期 値 を 1 に し て 
実行 し て み ま す 。 








19 jnt x=1 

20 switch x 

39 case 1:print 
49 case 2:print 
59 case 3:print 
69 endswitch 

79 end 

run 

apple 

Orange 

lemon 


yapple” 
"orange' 


"lemon” 


テ 
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ok 
四 


第 2 一 45 図 初期 値 を 1 に する と 

この 様 に , 最初 の case で 判定 が 一 致し て apple と 表示 され る と ころ まで は いい の で す が , 次 の case 
と その 次 の case も 実行 され て し まい まし た 。switch 文 は, 一度 正 し いと 判定 され る と その 後 の case 
を 無 条 件 で 通過 し て し まい ます 。 ま た ., 今 の 例 で は 三 つ に 分 岐 し まし た が , どれ に も あて は ま ら 
な か っ た 時 の 分 岐 と し て , default が あり ます 。 こ の 働き を みる た め に , 今 の プロ グラ ム の 初期 値 
を 4 に し て 55 行 を 追加 し て 下さ い (第 2 一 46 図 ) 。 








19 jnt x=4 

29 switch x 

39 case 1:print "apple" 

49 case 2:print "orange”" 
59 case 3:print. "lemon” 

55 default:print "fruit” 
69 endswitch 

79 end 

run 

fruit 

ok 

四 











第 2 一 46 図 default の 実行 

この 様 に default は どの case で も 引っ 掛か な ら な か っ た も の を 全て 引き 受け て くれ る 役目 を し ます 。 
この 場合 も , 先 に 説明 し た ひと つ 日 の case を 天 行 じ た 時 に いも づる 式 に その 後 の case を 実行 し て 
し まう の と 同じ 様 に default も 実行 し て し まい ます 。 
f) break と continue 


条件 に あっ た case だ け を 実行 する に は どう し た らい い の で し ょ う 。 こ こ で , break と いう 制御 構 
造 を 制御 する 命令 を 使い ます 。break は 現在 実行 し て いる 制御 構造 を 中 止 し て , 制御 構造 を 抜け て 


次 の 処理 へ 移 あ と いう も の で す 。 先 の プロ グラ ム に break を 入れ て 条件 に あっ た も ぉ の だ け を 実行 出 
来る 様 に し た も の が , 第 2 一 47 図 の プロ グラ ム で す 。 





19 jnt x=1 
29 switch x 
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39 case 1:print "apple”:break 
49 case 2:print "orange”":break 
59 case 3:print “lemon”:break 
55 default:print "fruit”" 

69 endswitch 

79 end 

run 

apple 

ok 

罰 











第 2 一 47 図 break で 条件 に あっ た case だ け を 実行 

この 他 に break は for 一 next, while 一 endwhile、 repeat 一 until に も 有効 で す 。 こ れ ら は ルー プ で 
すか ら , break が ある と ルー プ を 抜け 出し ルー プ 以 降 の 処理 へ 移り ます 。 し か し , この break は む 
や み に 入 れ て ある の で は あり ませ ん 。 だ いた い は 補 文 と ペア て 使用 され ます 。 





19 jint x=1 

29 while 1 

39 if x=5 then print "終わ り ”:break 
49 print x 

59 x=x+1 

69 endwhile 

70 end 


終わ り 
0k 








第 2 一 48 図 文 と break の 組み 合わ せ 
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これ は , 変数 x の 初期 値 が 1 で while の 無限 ルー プ へ 入り .x が 5 に な る まで ルー プ し て 5 に な っ 
た 所 で て i 文 に より “終わり” と 表示 し break に より ルー プ を 抜け ます 。 こ の 様 に , break 廊 の 使用 
に は 色々 な 判定 を し た 結果 と し て break を 実行 する よう に な り ま す 。 

break は 実行 きれ る と , その 後ろ に ある ルー プ 処 理 を -- 切 突 行 せ ザ ルー プ ' を 抜け る 働き が あり ま 
す が , これ と よく 似 た 命令 で , continue が あり ます 。 こ の 命令 ぅ 制御 構造 を 制御 する も の で , continue 
が 実行 きれ る と それ 以降 の ルー プ 処 理 を せ ず に ルー プ の 最後 に 共 ん で いき ます 。 ル ー プ "を 続け て 
いき 条件 に あっ た も の だ け を 処理 する 様 な 時 に 使用 し ます 。 し た が っ て , この continue は for 一 next, 
while 一 endwhile, repeat 一 until の 3 種類 に の み 使 用 可能 で す 。 ち な み に break は switch 一 case 一 
default 一 endswitch を 加え た 4 種類 に 使用 可能 で す (第 2 一 49 図 )。 





19 int x 

20 for x=@ to 19 
39 if x<5 then print “前 半 ":continue 
49 print "後半 ” 
59 next 

Fun 

前 半 

前 半 

前 半 

前 半 

前 半 

後半 

後半 

後半 

後半 

後半 

後半 

ok 

是 











第 2 一 49 図 continue サ ンプ ルプ ログ ラム 

変数 x が , 5 より も 小さ い 時 は 下 婦 により“ 前半” と 表示 きれ, 同時 に continue 5 実行 し ます か 
ら for ル ー プ の 最初 へ 戻り また 繰り 返さ れ ま す 。continue を 実行 し た 時 に は , for 一 next の 場合 は 変 
数 が 一 つ 増加 し て ルー プ の 最初 へ 大 り , while 一 endwhile, repeat 一 until の 場合 は 条件 式 が 判定 き 
れ ま す 。 こ うし て x が 5 を 越え る と ぜ 娘 に より 条件 が 不成立 と な り continue は 実行 さき れず, 40 行 の 
print “後半 ” が 実行 きれ て , 変数 x が 11 に な っ た 時 に for 一 next の 終了 値 を 越え を て ルー プ 処 理 を 終 
ゆま < ま 。 
60 
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この break, continue の 使用 に より , 前 述 の 制御 構造 命令 と共に より 一 層 複 雑 な 処理 が 可能 に な 
り ま す 。 行 番号 に と ら わ れる 事 な く X-BASIC の 処理 を 進め る 大 切な 制御 構造 で すか ら 十 分 理解 し 
で くる だ きき Ws 


選 s2lmsj ステ ー ト メン ト 


従来 の BASIC で は 処理 の 中 心 的 存在 どっ た ステ ー ト メン ト で す が ,X-BASIC で は ほとん と の 処 
理 が 関数 化 き れ て し まっ た た め , ステ ー ト メン ト と し て 分 類 る きれ て いる の は 次 の 31 個 し か あり ま 
せん 。 








この 中 で , 本 書 の 中 で 既に 紹介 され て いる も の が ⑤ 印 の つい た も の で す 。 この 項 で は ⑥ 印 の 
つい て いな いも の に つい て 説明 し ます 。 


(a) beep 

Human68K (OS) が 起動 きれ た 時 (電源 投入 時 や リセ ッ ト し た 時 ) に 、CONFIG.SYS と いう 
ファ イル の 中 で 定義 きれ て いる BEEP.SYS と いう 名 前 の ファ イル に 入っ て いる ADPCM の 音声 デ 
ー タ を 再生 し ます 。 簡 単に いえ ば , 「 ピ ー」 と と スピー カー から 音 が 出る の で す 。 し か し 、 X68000 で 
は ADPCM の 音声 デー タ で ある こと か ら , ADPCM に よる 録音 され た 音声 デー タ (例え ば 「 エ ラー 
で す 」。 な と) を ,BEEP.SYS と し て お け ば , X-BASIC で プロ グラ ム 中 に エラ ー が 起き た 時 な ど , 
この BEEP 命 令 で 「 エ ラー で す 。」 な どの メッ セー ジ を 再生 する こと も 可能 で す 。 
(b) cls 
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テキ スト 画面 の クリ アー を し ます 。X-BASIC で の ディ スプ レイ 画面 は テキ スト , グラ フィ ッ 
クス , スプ ライ ト の 3 種類 の 画面 の 合成 で びす から, その 内 の テキ スト 画面 だ け を クリ ア す る わけ 
で す (テキ スト 画面 と いう の は , 文字 を 出力 する 画面 の こと で す )。 

(c ) color 属性 

テキ スト 画面 の 文字 の 属性 を 設定 する 命令 で す 。 婦 字 の 属性 し いう の は , 廊 字 の 色 , 標準 か 強 
調 か , 標準 か 反転 か を 意味 し て いま す 。 色 に は , 黒 , シア ン , 黄色 , 販 の 4 種類 が あり , その 他 
の 2 種類 (標準 選 強 調 と 標準 反転 ) に つい て は 2 種 ず つの た め 4X2X2 の 16 通 り の 設定 が で 
きま す 。 設 定 方 法 は 次 の 通り で す 。 





それ で は 、 実際 に 第 2 一 50 図 動作 を 確認 し て み ま す 。 





19 int x 

29 for x=9 to 15 
39 color x 

49 print “"X68999" 
59 next 

69 color 3 

79 end 











第 2 一 50 図 color 文 サン プル プロ グラ ム 

この プロ グラ ム で は , X68000 と いう 文字 が 色々 な 人 色 や , 字体 に 代わ りな が ら 表 示し て いき ます 。 
(dg) color [ ] 

テキ スト の パレ ッ ト の 人 色 を 変更 し ます 。X68000 の テキ スト に 使用 で きる 色 は , 65536 色 中 4 色 あ 
り ま す 。(c) の color 命 信 の と ころ で の 4 色 は 、 黒 , シア ン , 黄色 、 白 の 4 色 で し た が , それ ぞ れ 
の 色 を 65536 色 の カラ ー コ ユー ド の 中 か ら 選 び 設 定 す る こと が で きま す 。[ ] の 中 の 数 値 は 4 個 あ 
り , それ ぞ れ が , 0 一 65536 ま で の 数 値 と な り ま す 。 設 定 方 法 は 次 の よう に な り ま す 。 
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( 注 ) カラ テー コー ド と パレ ッ ト コ ー ド に つい て は 第 3 章 の GRAPH. FNC の 項 を 参照 し て 下さ る い 。 
( e ) console 


ッ ト の 画面 で は 64 朗 字 X32 行 の 表示 が で きる こと に な り ま す (console 命 令 は 、 256X256 ド ッ ト の 
画面 で は 使用 で きま せん )。 

ども ちら も 32 行 の 表示 が で きま す が , 最 下 行か ら 次 の 行 に 表示 が 移る 時 に 、 画面 が 1 行 ず つ 上 へ 
ずれ ます 。 こ れ を スク ロー ル と いい ます が , 何 もち 指 定 し て いな い 時 は 全 画 面 が スク ロー ル し ます 。 
この スク ロー ル 機 能 を , 何 行 日 か ら 何 行 分 に 限定 する か を 指定 する の が console 命 令 で す 。 し た が 
っ て 。 スク ロー ル 開 始 行 の 指定 は 0 一 30 と な り ス クロ ー ル 範 胃 は 1 一 31 に な り ま す 。 実際 の 
設定 方 法 は 次 の よう に な り ま す 。 


( 注 ) ファ ンク ショ ン 表 示 分 と し て 最 下 行 は ユー ザー が 使用 で きま せん 。 また, 3 番目 の 数 値 は 0 
か 1 で , 0 な ら ば ファ ンク ショ ン キ ー 表 示 な し , 1 な ら ば ファ ンク ショ ン キ ー 表 示 あ り と な り ま 
す 。 
( f ) error onerror of 
一 般 的 に 。 プ ログ ラム 実行 中 に エラ ー が 発生 する と, プロ グラ ム が 僚 止 し て と の 行 で どん な エ 
ラー が 発生 し た か を 画面 に 表示 し ます 。 こ の エラ ー の 中 で , 関数 に よる エラ ー に つい て は , エラ 
ー で ある こと を 大 り 値 で 知ら せ て くる も の も あり , また , プロ グラ マー が エラ ー が 起こ る 可能 性 
を 判断 で き て いる プロ グラ ム も あり ます 。 こ ん な と き に 、 い ちい ち エ ラー が 発生 する た びに プロ 
グラ ム が 傍 止 し て いて は 困る の で , 関数 エラ ー が 発生 し て も ,、 その まま 次 の ステ ー トメ ント へ 進 
め る よう に , error off が あり ます 。 また, エラー の 発生 を 知ら せる 様 に する た め に 、 error on が あ 
り ま す 。 
( 注 ) プロ グラ ム を RUN に より 実行 し た 直後 は , 強制 的 に error on の 状態 に な り ま す 。 
(g) exit( ) 
( ) (カッ ュ ) が つい て 関数 の 形態 を を と っ て いま す が , 引数 も 戻り 値 も な い の で , 命令 (ステ 
ー ト メン ト ) と し て 分 類 き れ て いま す 。 こ の 命令 は 現在 の 状態 を 全て 破棄 で きる 状態 (ファ イル 
が オー プン し て いれ ば クロ ー ズ する ) に 処理 を し て , 親 プ ロ セ ス へ 戻り ます 。 親 プロ モス と いう 
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の は , X-BASIC を 起動 し た 時 の 状態 を いい VS モー ド な ら VS モ ー ド へ , コマ ンド モー ド な ら ュ 
マン ドモ ー ド へ 戻り ます 。 こ の 命令 を 使用 し た プロ グラ ム を 制作 し て いる 時 は , 少し 直し て は デ 
ィ ス ク へ 保存 を 繰り 返す か , EXIT ( ) を も ブロ グラ ノ 完 成 時 に 書く 様 に に し ます 。 い っ た ん この 命 
令 を 実行 する と , プロ グラ ム エ リ ア も 破壊 し て し まい ます 。 
(h ) gosub/return 
従来 か ら 引 きず っ て いる 命令 で , サ ブル ー チ ン を コー ル し ます 。 飛 ぶ 先 は , 行 番号 で すか ら gosub 
行 番号 と な り , サブ ルー チン て return を 見 つけ る と, gosub で 飛ん だ 次 の ステ ー メ ント か ら 処 理 
が つづ きま す 。 とにかく 〈 使 用 で きる と いう こと だ け で 使わ な い 様 に する の が 一 番 で す 。 
( i) goto 
(h) 同様 , 行 番号 を 目標 と し て プロ グラ ム を ジャ ンプ し ます 。 こ の 命令 も 使用 し な い 様 に し 
た 方 が 得策 で す 。 
(」) input キー ボー ド か ら 入 力 さ れる デー タ (文字 数 字 ) を 指定 し た 変数 へ 代入 し ます 。 こ の 
命令 は 使い 方 が 非常 に 多い 命令 で す 。 
(1)input a (a は 入力 し た い デ ー タ の 型 に 宣言 きれ て いな けれ ば な ら な い ) 
この 命令 が 実行 され る と 画面 に は ? ( ク ェ ッ ショ ンマ ー ク ) が 表示 され て , キー ボー ド 
か ら 入 力 待ち 状態 に な り ま す 。 入力 する の は , 代入 きれ る 変数 の 型 に あっ た も の で な い 
と デー タ の 型 が 違う の で , メッ セー ジ が 出力 され て 再度 入力 待ち 状態 に な り ま す 。 婦 字 
列 変数 の 場合 に は , 入力 され る 文字 数 に も 注意 し て 下さ い 。 
(2)input "メッ セー ジ ” ia 
” (引用 符 ) で 陣 ん だ メッ セー ジ を 画面 に 出力 し 。 その メッ セー ジ の 後ろ に ? (クエ ェ ッ 
ショ ンマ ー ク ) も ぅ 出力 され , 入力 待ち 状態 に な り ま す 。 あ と は (1) と 変わ り ま せん 。 


(3)input メッセージ"、a 
(2⑫) と 変わ ら な い の で す が , メッ セー ジ の 後ろ に は 何 も 出 力 さ れ ま せん 。 


(4input a, b (a と Eb は , それ ぞ れ 入力 し た ない デー タ の 型 で 宣言 され て いな けれ ば な ら な い ) 


複数 の デー タ を 入力 する 時 に 使用 し ます 。 変 数 を カン マ で 区 切っ て , 並べ て 記述 し ます 。 
入力 方 法 は 、 デー タ と デー タ を カン マ で 区 切っ て 入力 し ます 。 変数 の 個数 より 少く 入力 
する と , “デー タ の 個数 が 足り ませ ん ” と メッ セー ジ が 出力 きれ て 入力 待ち 状態 に な り ま 
す 。 ま た , デー タ の 個数 が 変数 の 個数 より 多く 入力 し て し て し まっ た と き は , デー タ の 
個数 が 多 す ぎ ま す 。” と メッ セー ジ が 出力 され て 多かっ た 分 の デー タ は 無視 され て 次 へ 進 
み ま す 。 


それ で は 第 2 一 51 図 で 一般 的 な 入力 方 法 の 確認 を し て くだ さい 。 





19 int a 
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29 str b 

39 input "数 値 ”,a 
49 input 文字”,b 
59 print a 

69 print b 

79 end 











第 2 一 51 図 input 文 サン プル プロ グラ ム 
(k) key 

テキ スト 画面 の 最 下 行 に ファ ンク ショ ン キ ー の 内 容 が 表示 きれ て いま す が , その ファ ンク ショ 
ン キ ー の 機能 を 定義 し ます 。KEY ナ ン バ ー は 1 一 20 ま で あり , 1 一 10 が F 1 一 F10 に 対応 し て いて , 
1 一 20 は |SHIFT TIF 1 |-IF10| に 対応 し て いま す 。 文字 列 の 長き は 32 廊 字 ま で 有効 で す 。 設 定 方 
法 は 次 の 通り で す 。 

10 keyl, renum @M 

@M は コン トロ ー ル M で , 回 (キャ リッ ジリ ター ン ) の 事 で す 。 こ の よう に コン トロ ー ル 廊 字 
は , @ を 付け て 記述 し ます 。 
(1) linput 

(j) input 同 様 .。 キーボー ド か ら デ ー タ を 入力 する 命令 で す が , 女池 列 変数 し か 指定 で きま せ 
ん 。 input 娘 では, その 機能 上 の 制約 で , (カン マ ) や ” (引用 符 ) は 入力 で きま せん が , Himput 
で は キー ボー ド か ら 入 力 で きる 廊 字 は 。 全て 代入 され ます 。 た だ し , 入力 で きる 疫 字 数 は str 型 変 
数 の 家計 し た 時 の 女池 数 の 制限 が あり ます が , この 他 に 画面 の 1 行 婦 の 制限 も あり ます の て 注意 
が 必要 で す 。 実 際 の 用 法 は 次 の 辿り で す 。 








ヶ 














(m) locate 
指定 し た 位置 カー ソル を 移動 し ます 。 その 他 の 機能 ほし て , カー ツル 表示 を する し な い の 
指定 も で きま す (ブログ ラム 実行 中 の み 有 効 で す )。 


カー ソル x 座 棲 は 0 か ら は じ ま り 画面 サイ ズ に より 、512X512 の 時 は 63, 768X512 の 時 は 95 と な 
り ま す 。 カーソル y 上 座標 は 0 一 31 と な り ま す 。 
第 2 一 52 図 は , locate を 使っ た プロ グラ ム で す 。 





| 19 cls 
29 locate 31,16 
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39 print ”X-BASIC” 
49 end 





第 2 一 52 図 locate 文 サン プル プロ グラ ム 


(n) print 

テキ スト 画面 に 文字 列 や 数 値 あ 表示 し ます 。 こ の 命令 に は , いく つか の 書式 が あり ます 。 文字 
列 を 表示 する 時 は , str 型 に 変数 か ,“ (引用 符 ) で 囲ん だ 廊 字 の 並び を print の 後ろ へ 置き ます 。 数 
値 を 表示 する 時 は 、 数 値 型 変数 (char 型 。int 型 、float 型 ) を print の 後ろ へ 置き ます 。 色々 と 細か 
い 書 式 が あり ます が , 次 の よう に 分 類 き れ ま す 。 


(1) print 変数 

変数 の 内 容 が 画面 に 表示 され ます 。 こ の 変数 は , 数 値 型 変数 (char 型 」int 型 、float 型 ) の 場合 
に は 数 値 が , 廊 字 型 変数 (str 型 ) の 場合 に は 廊 字 列 が それ ぞ れ 出 力 さ れ ま す 。 こ の 変数 の こと を 
出力 きれ る 胡 素 と 呼び ます 。 出 力 さ れ た 後 で 次 に 出力 する 位置 (カー ソル 位置 ) が 次 の 行 の 先 
頭 に な が なり ます 。 これ を 改行 し いい ます 。 ここ で 間違え 易い こと に , 変数 名 が その まま 出力 され る 
よう に 思い が ち で す が , 変数 名 が を の まま 画面 に 出力 きれ る の で は あり ませ ん 。 

(2) print 廊 字 の 並び ? 

"(引用 等) で 囲ま れ た 文字 の 並び の 場合 は , その 廊 字 の 並び が その まま 画面 へ 出力 され ます 。/ 
(引用 待 ) で 囲ま れ た 文字 の 並び は 、 str 型 変数 の 初期 化 で も 出 て きま し た が , 単純 な 解釈 で 交 字 列 
だ と 思え ば (1) の 疫学 列 変数 の 出力 で ある と 理解 出来 ます 。 こ の 場合 も (1) 同様 出力 後 の 
カー ソル の 位置 は 次 の 行 の 先頭 に な り ま す 。 

(3) print 要素 1 : 要 素 2 : ・・・: 要素 n 

print 娘 で は , 複数 の 要素 も : (モミ コロ ン ) で 区 切り 続け て 記述 する こ と が 出来 ます 。 要素 は , 
女池 で も 数値 で も その 混合 で も 構い ませ ん 。 画 面 に は これ ら の 要素 が 連続 し て 出力 され ます 。 ま 
た だ , 最後 を 要素 で 終わ ら ず : (モミ コロ ン ) で 終わ る と , (1), (2) の 様 な 改行 は し ませ ん 。 こ 
の 場合 , 次 に print 文 が 実行 され る と 現在 の カー ソル 位置 か ら 出力 され ます 。 最 後 が 要素 で 終わ っ 
て いれ ば 改行 し ます 。 

(4) print 要素 1, 要素 2, ・・・, 要素 n 

(3) と 同様 に 要素 も , (カン マ ) で 区 切り ます 。 こ の 場合 , (3 ) で は 要素 同 二 が 連続 し て 
出力 きれ る の に 対し 要素 同士 を 8 女 字 に 区 切っ て 出力 し ます 。- つ の 要素 が 8 廊 字 以内 で あれ ば 
あたかも る その 要素 が 8 廊 字 で あっ た か の よう に 、 次 の 要素 は 8 廊 字 目 か ら 出力 きれ ます 。 も し, 
要素 が 8 廊 字 を 越え を る よう な 場合 に は 次 の 8 女 字 の 区 切り に な り , 8 文字 な ら 決 の 要素 は 連続 し 
て 出力 され ます 。 

, (カン マ ) を 最後 に 付け て 終わ る と (3) 同様 , 改行 され ず に 次 の 出力 され る の は 最後 に 出力 
(5 ) print using ` 書 式 ′ : 変 数 (数 値 型 ) また は 数 字 

書式 部 分 に 決め られ た 書式 を 表す 記号 の 並び を 記述 する と , 変数 また は 数 値 が その 書式 で 表示 
され ます 。 決 め ら れ た 書式 を 表す 記号 は , 次 の 通り で す 。 
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| # ( レ ャ ー プ ) | 表示 する 数 値 の 桁 数 を 指定 し ます 。 
ト | 
。 (ピリ オド ) 小数 点 の 位置 を 指定 し ます 。 は み 出 し た 桁 は 4 捨 5 入 し ます 。 
直 及 人 8 符号 を 付け て 表示 し ます 。 一 の 場合 は , せ の 後ろ に 設定 し ます 。 
hl 
ネ ポ 空自 を * (アス タリ スク ) で 埋め ます 。 
HH 
\\ 数 字 に \ (円 マー ク ) を 付け ます 。 
癌 
ネ * ネ ※\ 空白 を * (アス タリ スク ) で 埋め , 先頭 に \ (円 マー ク ) を 付け ます 。 
HI 数 値 を 指数 を 使っ た 表現 に し ます 。 
角 H292 人 か 3 桁 毎 に , (カン マ ) を 付け て 表現 し ます 。 














(6 ) print using “書式 ′ : 変数 ( 廊 字 列 型 ) また は 女池 列 
(5 ) と 同様 に 、 朗 字 列 に つい て 色々 な 書式 を 指定 する こと が 出来 ます 。 





! 文字 列 の 先頭 の 1 文字 だ び け を 出力 し ます 。 





& (空白) 科 文字 列 を を か ら 必 まで の 文字 数 に 指定 し ます 。 
提 H シ スス テー クキ これ は , (5 ), (6 ) で 紹介 し た 書式 を 設定 する 記号 を _ (アン ダー バー) 
後 の 1 文字 び どけ を た だ の 文字 に する も の で す 。 














1 

( 注 ) これ ら の 記号 は , 組み 合わ せ て 使用 する こと が 出来 ます 。 色 々 と 試し て みて 下さ い 。 
o ) rem ( プ *) 

remarks (注釈 ) の 事 で , プロ グラ ム に 関係 し た コメ ント や 覚え 書き な ど を 注釈 文 と し て ブロ グ 
ラム 中 へ 書き 込む こと が 出来 ます 。 1 行 全て 注釈 の 場合 は を の まま プ * に 続い て 書き 込む こと が 
出来 ます が , ステ ー ト メン ト の 後ろ に 注釈 女 を 書き 込む 場合 は 。 : (コロ ン ) を 付け て 他 の ステ 
ー ト メン ト 同 様 に マル チ ス テー トメ ント に し な けれ ば な り ま せん 。 実際 の 使用 例 は 第 2 一 53 図 の 
通り で す 。 








19 /* こ れ は 注釈 文 で す 。 
29 print “test”:/* 注 釈 文 の テス ト で す 。 
第 2 一 53 図 rem ( プ *) サン プル プロ グラ ム 
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p ) screen 

表示 画面 の す ナイズ, 実 画面 の ナイズ, 解像度 . グ ラフ ィ ッ クス 画面 の onoff を 指定 し ます 。 こ 
の ステ ー ト メン ト の 詳細 は , 第 3 章 の GRAPH.FNC の 所 で 解説 し ます 。 
q ) stop 

プロ グラ ム の 実行 を 中 断 し ます 。 こ れ は , プロ グラ マー が 意識 し て プロ グラ ム 中 に 入れ て お く 
も の で , 実行 中 に 実行 過程 が 良く 判ら な いよ うな 所 に 入れ 、 そこ で スト ッ プ し て 途中 の 経過 を 確 
中 する 時 な ど に 使用 し ます 。 一 般 的 に は , 完成 し た プロ グラ ム に は あま り 使 われ て いま せん 。 こ 
の stop に よっ て 中 断 し た プロ グラ ム を 再開 する 時 は cont コ マン ド を 使用 し ます 。 し か し , 中 断 し た 
時 に プロ グラ ム の 変更 を する と , 再開 で き な く な り ま すか ら 注 意 し て 下さ きい 。 
r ) width 

この 命令 は 、X-BASIC の マニ ュ ア ル 上 で は コマ ンド と し て 紹介 され て いま す 。 コ マン ド は 。 第 
1 章 で も 説明 し まし た が プロ グラ ム 中 で は 使用 で きま せん 。 し か し , こ の width に つい て は 例外 で 
プロ グラ ム 中 の 使用 が 許さ きれ て いま す 。 従って, 他 の ステ ー ト メン ト と 同様 に ダイ レク トモ ー ド 
で 使用 し た な り 、 プ ログ ラム モー ド て で 使用 し た り し て も か まい ませ ん 。 ど ちら か と いう と 分 類 と し 
て は , ステ ー ト メン ト に 属す る も の で す 。 

この 命令 は , 画面 に 表示 きれ る 廊 字 数 を 変更 する も の で . X-BASIC で は 96 文 字 と 64 廊 字 が 許 き 
れ て いま す 。 た だ し 、 画面 に 表示 され る 行 数 に 変化 は あり ませ ん 。 第 2 一 54 図 は 、 こ の width を 実 
際 に プロ グラ ム 中 に 使用 し た 例 で す 。 





19 int x 

29 width 96 

39 locate 48,16 

49 print “WIDTH 96”" 

59 for x=9 to 2999:next 
69 width 64 

79 locate 32,16 

89 print "WIDTH 64" 

90 for x=9 to 2099:next 
199 width 96 

119 print "WIDTH 96 AGAIN” 
120 for x=9 to 2999:next 
139 width 64 

149 end 











第 2 一 54 図 width サ ンプ ルプ ログ ラム 


この ブロ グラ ム 結 果 は , 表示 画面 を 96 文 字 モ ー ド に 切り 替え , 画面 中 央 に WIDTH 96/ と 表 
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示し て , し ば らく だ っ て か ら 画 面 モ ー ド を 64 廊 字 に し て 画面 中 央 に “WIDTH 64” と 表示 し て , 
また し ば らく た Ne ド を 96 文 字 し て 画面 中 央 に WIDTH 96 AGAIN” と 表示 し ま 
す 。 を そして, また し ば らく た だ たつ と, 元 の 64 廊 字 の 状態 に 戻り ます 。 
この プロ グラ ム を 実行 し て みる cls 命 令 が な い の に 画面 モー ド 切 eu 
リア され て いま す 。 こ の 命令 を 実行 する と テキ スト 画面 が クリ ア さ れる こと に 注意 し て 下 き 
また この 例 で は 確認 出来 ませ ん で し た が , この 命令 を 実行 する と テキ スト 画面 が クリ ア 
け で な くく, グラフィック 画面 $ 同 時 に クリ ア さ れ て し まい ます の で 注意 し て 使用 し な いと せっ か 
く 書 いた な グラ フィ ックス の 絵 が 一 瞬 の うち に 消え 去っ て し まう 事故 も 起こ りか ね ませ ん 。 と ころ 
で , 今 の 例 で 96 文 字 と 64 文 字 し か 指定 し な か っ た の は , この 命令 に 使用 出来 る 数 字 は 64 と 96 し か 
な いか ら で , ステ ー ト メン ト の 廊 法 説明 と し て は 
width 64 
width 96 
の 2 種類 の 命令 が ある と 覚え て も ら ぇ ば 結構 で す 。 
さて, 第 2 一 54 図 の 中 に あま り 意 味 の 無 さそ うな 行 が 3 行 ほ ど あ り ま す 。 
for x 三 0 to2000 : next 
これ は , 制御 構造 の と ころ で 紹介 し た プロ グラ ム の ウエ イト で す 。 こ の プロ グラ ム で は , 表示 
画面 が 96 文 字 モ ー ド や 64 文 字 モ ー ド に 切り 替わっ た 時 に その こと を 確認 する た め に , print 廊 で 現 
在 の 表示 モー ド で 女 字 を 出力 し ます が , 出力 後 す ぐ で 次 の 表示 モー ド に 切り 替わっ て し まう の で 
まっ た て print 文 に よる 表示 を 見 る こと が 出来 ませ ん 。 そ こ で , この for ル ー プ に よる ウエ イト ( 空 
ルー プ ) で 一 定 の 時 間 、 表示 し て いる 内 容 を 見 る こと が 出来 る の で す 。 
これ まで 色々 と 説明 し て きた ステ ー ト メン ト は , サン プル プロ グラ ム で は 体験 で き な い 良い と 
ころ や , な か な か 使う 時 に 厄介 な も の な ど が た くさ ん あり ます 。 た えま な い 探 究 心 が あれ ば 乗り 
切れ ます し , また 新しい 使い 方 な ども 覚え ます 。 常 に 実行 し て みて 疑 門 を 持つ こと が 必要 で す 。 
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c-D ファ イル の 管理 














これ まで は , ブロ グラ ム 作 成 に 関す る こと を 人 解説 し て きま し た 。 プ ログ ラム は 前 述 の よう に , 
X68000 の メモ リ 上 (X-BASIC の プロ グラ ム メ モリ ) に 書き 込ま れ て いま す 。 こ の まま で は , 電源 
を 切っ て し まえ ば プロ グラ ム メ モリ ト 上 の プロ グラ ム は 消 減 し て し まい ます 。X68000 に は 。 2 HD タ 
イプ の フロ ッ ピ ー デ イス ク が 2 機内 蔵 き まれ て いま す 。 X-BASIC で は , この ディ スク を 利用 し て 
プロ グラ ム を 保存 し た り , 保存 し て ある プロ グラ ム を も プログ ラム メモ リ へ 呼び 出し た りす る こと 
が 出来 ます 。 


局 ぉ Bi] | ファ イル の 保存 


X-BASIC の プロ グラ ム を ディ スク へ 保存 する 時 に は , 現在 作成 中 また は 完成 し た プロ グラ ム 
に 名 前 を 付け て 保存 し ます 。 こ の 名 前 の こと を ファ イル ネー ム と 言い 。 保存 きれ た 後 は Human68 
k で 管理 され て いる ファ イル と 共有 の も の に な り ま す 。 一 般 的 に X-BASIC 起動 時 に は , “BASIC* 
と いう ディ レク トリ 内 に いる の で , この ディ レク トリ 内 に 保存 する 場合 に は , ディ レク トリ 名 な 
どの わずらわし い 操 作 は 必要 あり ませ ん 。 本 書 で は , OS の 解説 書 で は な いた め 共 本 的 な ファ イル 
操作 は , “BASIC′" ディ レク トリ 内 だ け に 限定 し て いま す 。 

る て , ブロ グラ ム の 保存 は save と いう コマ ンド に より 実行 し ます 。 こ の コマ ンド の 書式 は , 
次 の 通り で す 。 








この ファ イル ネー ム は 8 女子 まで , その 後ろ の に . (ピリ オド ) を 付け て 3 文字 の 拡張 子 を 付 
ける こと が 出来 ます 。 X-BASIC の プロ グラ ム に 付け る 拡張 子 は BAS ま た は bas と 決め られ て いま 
す 。 また, save の コマ ンド で プロ グラ ム を 保存 する 時 に この 拡張 子 を 衝 略 する と 自動 的 に . BAS 
の 拡 引 子 が 付き ます 。 簡単 な アデ ロ グラ ム を 作成 し 実際 に その プロ グラ ム を 保存 し て み ま す (第 2 一 
55 図 )。 





19 int x=10,y=15,z 
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20 z=x+y 

30 print " ァ ェ iz レツ x ニ レア タニ ジッ 
40 end 

run 

ァ Z=25 x=10 y=15 

OK 

save "test”" 

OK 











第 2 一 55 図 "test' と いう ファ イル 名 で save 


この 例 で は 。 一 度 ゲ ログ ラム を 実行 し て か ら “test と いう ファ イル ネー ム で ディ スク へ 保存 し 
て いま す 。 保存 きれ た こと を 確認 する た め に , files コ ユマ ンド を 実行 する と , 第 2 一 56 図 の 様 に な り 


ます 。 





files 


496 K バ イト が 使用 可能 で す 


"Ai\BASIC\BASIC 


"Ai:\BASIC\BASIC 


"Ai:\BASIC\AUDIO 


"Ai:\BASIC\GRAPH 


"Ai:\BASIC\MOUSE 


"Ai:\BASIC\MUSIC 


"Ai:\BASIC\SPRITE 


”A:\BASIC\STICK 





/* 


・CNF" 


/* 


-・FNC" 


/* 


・FNC” 


/* 


-FNC” 


46299 87/95/15 12:99:99 


142 87/95/15 12:99:99 


549 87/95/15 12:99:99 


35294 87/95/15 12:90:99 


926 87/95/15 12:96:99 


21528 87/95/15 12:99:99 


2656 87/95/15 12:99:90 


352 87/95/15 12:99:99 
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第 2 一 56 図 files で 確認 

BASIC" ディ レク トリ 内 に 保存 され て いる ファ イル 名 が いく つか 表示 され ます 。 こ の 中 に 信 保 
存 し た teat.bas” と 言う ファ イル ネー ム が あり , 拡張 子 の .bas も 付い て いま す 。 こ の 他 に , その 
下 に は この ファ イル の サイ ズ や ファ イル を 保存 し た 日 付 や 時 間 が 表示 きれ て いま す 。 


思 ssG ョ | ファ イル の 呼び 出し 


"ディ スク へ 保存 し た プロ グラ ム は , 必要 な 時 に プロ グラ ム メ モリ へ 呼び 出す こと が 出来 ます 。 
プロ グラ ム を プロ グラ ム メ モリ へ 呼び 出す に は , 1oad コ マン ド を 使用 し ます 。load コ マン ド の 書式 
は 次 の 通り で す 。 


この load コ マン ド に 付け る ファ イル ネー ム に も 拡張 子 を 省略 する こと が 出来 ます 。 2 一 5-1 で 
保存 し な プロ グラ ム を 第 2 一 57 図 の 様 に 、 実際 に 呼び 出し て み ま す 。 








neW 
OK 

ist 

OK 

load"test" 

0K 

list 

19 int x=19,y=15,z 

20 z=x+y 

39 print "の Z ニ アリ Z ァ レニ ジロ X タニ ジッ 
49 end 


OK 
四 











第 2 一 57 図 ファ イル の 呼び 出し 


ご 覧 の よう に , new し た 後 の list で も プロ グラ ム メ モリ 内 に は も う プ ログ ラム が 残っ て いな い 事 
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が 確認 で きま す 。 こ の 後 で , 1oad コ マン ド を 実行 し list し て みる と , 分 度 は プロ グラ ム が あり ます 。 
人 の 例 で は , 1oad コ マン ド 実 行 前 に new を し て いま す が , 実際 に は load コ マン ド を 実行 する と プロ 
グラ ム メ モリ 内 は 一 度 消 示さ れ ま す の で 必要 な い の で す が , 逆 に 消し た く な い プ ログ ラム も 消え 
て し まい ます か ら 気 を 付け て 下さ い 。 


戸 ^ ぼ = | 呼び 出し 後 の 自 動 実行 


メーBASIC の コマ ンド の 中 に は , プロ グラ ム を 呼び 出し た 直後 に 実行 する こと が 出来 る も 5 の が 
あり ます 。 こ れ ま で も 何 度 と な く 出 て きま し た が , run と いう コマ ンド が それ で す 。 使 用 方 法 は , load 


コマ ンド と 全く 同じ で す 。 実際 に は , 先程 の load を run に 置き 代え た も の を 実行 し て みて 下さ きい 。 





run "test" 


プロ グラ ム の 結合 





第 2 章 の コマ ンド 説明 の 中 に 出 て きま し た が load@, save@ と いう コマ ンド を 使用 し て プロ 


グラ ム の 結合 を し ます 。 こ こ で は , 第 2 一 58 図 の プロ グラ ム ( - つ ) を 結合 する 手順 を 解説 し ます 。 





グロ グラ ジム 1 


19 print "X-BASIC”" 
29 print "is NO.1”" 
39 end 


デ ロ グ ラム 2 


19 print "X68999" 


29 print “is NO.1" 
39 end 











第 2 一 58 図 2 本 の サン プル プロ グラ ム 
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ざら S ょ と @S 選 


プロ グラ ム 1 を キー ボー ド か ら 打 ち 込 む 。 
この プロ グラ ム を save コ ユマ ンド で 保存 する 。 
new コ マン ド で プロ グラ ム 1 を 消去 する 。 

プロ グラ ム 2 を キー ボー ド か ら 打 ち 込 む 。 

この プロ グラ ム を sava@ コ マン ド で 保存 する 。 
1oad コ マン ド で , `test 1 ” を 呼び 出す 。 
続い て ,。 この まま の 状態 で load@ コマ ンド を 次 の 書式 で * 


]oad@ "testl" ,40,10 


8) この 状態 で Hist し て 第 2 一 59 図 の よう に な っ た か 確認 し ます 。 











list 
19 print "X-BASIC”" 
29 print “is NO.1" 
39 end 
49 print "X58999" 
59 print "is NO.1" 
69 end 
OK 
四 
第 2 一 59 図 2 本 の プロ グラ ム が 1 本 に 


ご 覧 の 様 に , test 1 ,test 2 と が 結合 され て いま す 。 プ ログ ラム が 結合 し た 後 の 内 容 と し て は 、 30 
行 目 の end は 必要 な い の で delete ま た は 1 行 削除 の 方 法 で 削除 する 必要 が あり ます 。 ま た, この よ 
うに 結合 し た プロ グラ ム を 保存 する の を 忘れ な い 様 に し て 下さ い 。 

さて , save@ コ マン ド と load@ コ マン ド の 書式 で す が , save@ に つい て は , save コ マン ド と 全 


《 同じ で す が , load@ コ マン ド は 少々 違い ます 。 


先程 の 例 で は , test 2 を 40 行 目 か ら 結 合 し , 10 行 間隔 で 結合 し た こと に な り ま す 。 
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-BASIC に は , X-BASIC 本 体 に 内 蔵 さ れ た 関数 が 何 グ ルー プ か あり ます 。 これら の 関数 は , 
パー ソナ ルコ ンピュータ に と っ て 基本 と な る ファ イル の 入出 力 に 関す る も の と か , 数 値 や 文字 の 
処理 ほか, デー タ の 変換 と し か いう も の で , 何 の 定義 も な し に いつ で も 使用 する こと が 出来 ます 。 
この 関数 群 の こと を 標準 関数 と いい , 第 3 一 1 図 の 様 に 分 類 き され ま す 。 





(1) ファ イル 入出 力 関数 
( 2 ) デ ー タ 変換 関数 

( 3 ) 文字 列 処理 関数 

( 4 ) 数 値 演算 関数 











第 3 一 1 図 標準 関数 


これ ら の 関数 群 の 内 容 は , 色々 に 分 類する こと が 出来 ます 。 従 っ て ,. ここ か ら の 説明 は 単なる 
機能 ど だけ で な く 引 数 や 戻り 値 の 分 類 等 に よっ て も 説明 を 分 け て いき ます 。 





一 般 に ファ イル と いう と , マイ コン , パソ コン を 少し 知っ て いる 方 な 6 大 抵 は カセ モッ ト テ ー プ 
レコ ー ダ や フロ ッ ピ ー デ ィ ス ク を 思い 浮か で ます 。 も ちろ ん 外部 記憶 装置 と し て の それ は , 世 の 
中 で は よく 知ら れ て いま す が , Human68k に な いて は 色々 な デバ イス を サポ ー ト し て いま す ( 第 
3 一 2 図 )。 





@ コン ソー ル (キー ボー ド と ディ スプ レイ ) 
@ RS-232C (シリ アル イン ター フェ ー ス ) 

@ プ ブリ ンタ 

@ フ ロッ ピー ディ スク 

@ ハ ー ド ディ スク 

@ ADPCM 

第 3 一 2 図 Human68k で サポ ー ト し て いる 各種 デバ イス 
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当然 の 様 に Human68k が これ ら の デバ イス を サポ ー ト し て いれ ば , X-BASIC で も 使用 可能 で 
す 。 従 っ て , これ か ら 解 説 す る 関数 群 に 付い て も これ まで の 認識 は 改め て お く 〈 必 要 が あり ます 。 
し か し , ここ で は フロ ッ ピ ー デ ィ ス ク を 対象 と し た 解説 と し ます 。 

る て , この ファ イル 入出 力 関数 で す が ,、 メデ ィ イア に 対し 1 バイ ト ず つ (1 文字 ずつ ) の 操作 を 
する も の か ら 1 行 単位 の 操作 まで 色々 な 形態 を 持っ て いま す 。 こ こ で は , これ ら に つい て サン プ 
ルプ ログ ラム を 提示 し ます の で , 実行 結果 と 解説 を 通し て 関数 を 理解 し て 下さ い 。 


( a ) ファ イル 入出 力 の 基本 【fopen, fclose, fcloseall】 


ファ イル 入出 力 の 基本 は , 何 し い っ て も この fopen と fclosee で す 。 関 数 名 か ら で も 想像 出来 る の 
で す が , ファ イル を 開き ファ イル を 閉じ る 関数 で す 。 フ ァイル と いう の は , 普段 は シッ カリ と 鍵 
が 掛け られ て いて , 中 身 を 見 る こと も 取り 出す こと も 入れ る こと も 出来 な い 箱 の よう な 物 で す 。 
従っ て , この 箱 に デー タ を 入れ よう と し た り , 箱 か ら デ ー タ を 取り 出 を そう と し た りす る に は , ま 
ず 最 初 に 箱 を 開け な けれ ば な り ま せん 。 これが fopen で す 。 ま た , この fopen に は 全く デー タ の な 
い 箱 を 注文 する 役目 も あり , 今 ま で 使用 し て いな か っ た 新しい 箱 を 作り 出す こと が 出来 ます 。 

これ と 反対 に , 色々 な 操作 (デー タ の 読み 込み , 書き 込み ) が 終わ っ た 箱 を も と 通り ひっ くり 5 
返し て も 大 丈夫 な よう に , ふた を し て 鍵 を 掛け な けれ ば な り ま せん 。 これが , fclose で す 。 言い 忘 
れ ま し た が , この 箱 に 付い て いる 名 前 が ファ イル ネー ム で す 。 


【FOPEN】 





書 式 fp=fopen (fn, md) 

引 数 | str fn、md 

fn は ファ イル ネー ム で , md は openm する と き の モ ー ド を 指定 し ます 。 fn で は , 直 

接 " (引用 符 ) で 囲ん を ど フ ァイル ネー ム か , str 型 変数 に 代入 る れ た ファ イル ネー 

ム か , どちら か に より 指定 され ます 。 

md は ,。 "Tr リリ WP Prw7。 7c リ の いずれ か で , 次 の よう な 意味 を 持っ て いま す 。 

PT 既に ファ イル が あっ て , その ファ イル を 読み 出し 専用 ほし て open する 
場合 。 

7W" 既に ファ イル が あっ て , その ファ イル を 書き 込み 専用 た し て open す る 
場合 。 

yr W"… 既 に ファ イル が あっ て , その ファ イル を 読み 書き 両用 に 使用 する 場合 。 

Ourms 既に ファ イル が あっ て も , 新規 ファ イル と し て 読み 書き 両用 に open す 
る 場合 。 こ の 場合 , 既に あっ た 貴重 な デー タ は 消え て し まう の で , 注 意 し 

] て open し て くだ さい 。 


戻り 値 | int fp 
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fp は , open に より 使用 可能 に な っ た ファ イル の 番号 が 入り ます 。 この 番号 は , 後 
昌 で 重要 な 役割 を し ます か らき ちん と 戻り 値 と し て 変数 に 代入 し て お いて 下 き い 。 








【FCLOSE】 


fc 王 fclose (fp) 





int fp 

この fp は , open し た 時 の ファ イル 番号 で どの ファ イル を close する か の 指定 に 
な り ま す 。 X-BASIC で は , open に より 15 個 まで の ファ イル を 同時 に 開く こと が 
出来 ます 。 この 中 で , も う 用 の すん だ ファ イル は close し ます が , どの ファ イル 番 
号 か を 指定 し な けれ ば な り ま せん 。 





int fc 
これ は , 正常 に ファ イル を close 出来 た か どう か を 戻り 値 と し て 返し ます 。 正 常 な 
場合 は 0, 異常 (エラ ー) の 場合 は ー 1 が 返り ます 。 














fc 三 fcloseall( ) 





ナシ 





int fc 

これ は , 先程 の fclose と 同様 に ファ イル を 閉じ る 関数 で す が , 引数 が な く 現 在 
open され て いる ファ イル 全て が close され ます 。 戻り 値 fc に 付い て は fclose と 
同じ で す 。 











ファ イル 管理 に な いて , この 二 つ (fopen と fclose, fcloseall) は 重要 で すか ら , 早い うち に 理 
解 し て 下さ い 。 な お , fopen, fclose に 付い て の 使用 例 は , 次 に 説明 する 入出 力 関係 の 部 分 を 参考 
に し で 下 ぎ い 。 


(b) 1 バイ ト 単 位 の 入出 力 【fputc, fgetc】 


この fputc,fgetc は , 1 バイト ずつ の デー タ を 取り 扱う 関数 で す 。 1 バイ ト デ ー タ と いう の は , 
半角 の アル ファ ベッ ト や 片仮名 等 の char 型 の ダー ター つ で 表す こと の 出来 る デー タ の こと で す 。 
1 バイ ト ず つ 書 き 込 み を する の が fputc で , 1 バイト ずつ 読み 込む の が fgetc で す 。 
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【FPUTC】【FGETC】 

















6 っ 
書 式 fc 三 fputc (ch、fp), fs 三 fgetc (fp) 
引 数 char ch (fgetc で は 引数 が 一 つ だ け ) 
int fp 
この ch と いう 引数 は , これ か ら 書 き 込 も うと する デー タ で す 。 fp は , 書き 込 も う 
と する ファ イル の 番号 で , fopen の 戻り 値 で す 。 
人 5 
@ int f 
戻 9 値 | 。 _ 
この 戻り 値 は 、 ファ イル に 対し て 正常 に 書き 込め た か どう か を 返す た め の も の で 
正常 な 場合 は 0, 異常 の 場合 は 一 1 を 返し ます 。 
int fs…… 文字 コー ド 








き て この fputc 関数 を 使っ て , 実際 に ファ イル と し て ディ スク に 書き 込ん で み ま す 。 まず, 第 
3 一 3 図 を 打ち 込ん で みて 下さ い 。 





10 
20 
30 
40 
59 
60 
79 
89 
99 
100 
119 





str fn="samplel.dat" 

dim char x(6)=( xy 6 8 9 9 9「,9) 

int fp,fs,i 

char t 

fp=fopen(fn,"c”) 

for i=9 to 6 
t=x(i) 
fs=fputc(t,fp) 

next 

fs=fclose(fp) 


end 








第 3 一 3 図 fputc サ ンプ ルプ ログ ラム 


この プロ グラ ム で は , char 型 の 配列 変数 に 直接 代入 (初期 化 ) し た 内 容 が フロ ッ ピ ー デ ィ ス ク 
内 へ ,sample1.dat と し て 登録 きれ ます 。 新 規 の 登録 し な る た め ,fopen で は "c" モ ー ド に より open 
され て いま す 。 

この プロ グラ ム を 実行 し た 後 で , files コマ ンド を 実行 し て みる と, 今 出 来 上 が っ た だ ばかり の フ 
テ ァイル が 確認 出来 る と 思い ます 。 こ の ファ イル は , "X68000" と いう 6 文字 と 文字 列 の 終わ り を 示 
す ヌ ルコ ー ド か ら 6 出来 て いる の で , 確認 し た ファ イル の サイ ズ は 7 バイ ト に な っ て いる と 思い ま 


ず a まま 5 


この プロ グラ ム の 中 で char 型 の 配列 を 初期 化す る 時 に ,*( ア ポス トロ フィ ー) で 囲ん で 
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あり ます が , これ は , で 囲ま れ た 文字 の コー ド を 意味 し て いま す (1 文字 だ け の 時 に 有効 ) 。 
それ で は , 今 書き 込ん だ ど フ ァイル を 読み 込ん で み ま し ょ う 。 第 3 一 4 図 は , 今 書き 込ん だ ファ 
イル を str 型 の 変数 に 代入 し て 表示 する プロ グラ ム で す 。 





19 str fn="samplel.dat" 
29 str s 

39 dim char x(6) 

49 int fp,fs,i,t 

59 fp=fopen(fn,"r”) 

69 for i=9 to 5 


79 t=fgetc(fp) 
89 x(ji)=t 
9 next 


199 fs=fclose(fp) 

119 for i=9 to 6 

120 S=S+chr$(x(i)) 
139 next 

149 print gs 

159 end 

run 

X68000 

0k 

田 











第 3 一 4 図 書き 込ん だ ファ イル を 表示 させ る (fgetc サン プル プロ グラ ム ) 


この よう に , 先程 の デー タ が 取り 出せ た 訳 で す 。 こ の プロ グラ ム の 中 で , chr$( ) と いう も 
の が あり ます が , これ は 後述 する デー タ 変 換 関数 で ,「char 型 の デー タ を str 型 の ダー タ に 変換 す 
る 関数 」 で す 。 こ の プロ グラ ム で 注意 し な けれ ば な ら な い の は , 第 3 一 3 図 で は open の 時 に "c" 
で あっ た も の を , 第 3 一 4 図 で は 'T" と な っ て いる こと で す 。 こ れ は , 既に ある ファ イル を 読み 出 
し 専用 に open し た た めで , この よう に 使用 目的 に より モー ド を 使い 分 ける こと が 必要 で す 。 こ の 
プロ グラ ム の 80 行 で 少々 無理 の ある こと を し て いま す が , この 代入 の こと を 型 変換 と いい ます 。 
型 変換 は , 数 値 型 の 変数 や 値 を 互い に 自由 に 代入 する こと が 出来 ます が , オー バー フロ ー を 起こ 
す と エラ ー に な り ま す の て 気 を 付け て 下さ い 。 
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(c) 配列 の 入出 力 【fwrite, freag】 


これ まで 解説 し て きた 入出 力 関数 は , 扱う デー タ が 1 バイト 単位 ど し た 。 ここ で 説明 する 関数 
は , 扱う 変数 の 型 が 基準 し な る も の で す 。 従っ て , 書き 込む デー タ が char 型 ど だ と 1 バイト ずつ, 
int 型 で われ ば 4 バイ ト ず つ , float 型 で あれ ば 8 バイ ト ず つ , 一 度 に 書き 込ま れ て いき ます 。 た だ し 
ファ イル の 中 へ 入っ て し まえ ば 1 バイ ト ず つの デー タ で すか ら , 取り 出す 時 に 他 の 型 へ 取り 込む 
こと も で きま す 。 


【FWRITE】 





書 式 fb 三 fwrite (na, n, fp) 





引 数 | 数 値 型 1 次 元 配 列 na 

この 引数 は , ファ イル へ これ か ら 書 き 込 も うと する デー タ を 格納 し て お く 配 列 で , 
前 述 の よう に 型 に より 書き 込ま れる バイ ト 数 が 変化 し ます 。 

int n, fp 

この 引数 n は , 書き 込む ゲー タ の 個数 (カウ ント 数 ) を 指定 する も の で , 1 カウ 

ント は デー タ の 型 に より 変化 し ます 。char 型 の 場合 1 バイト ずつ , int 型 の 場合 4 

バイ ト ず つ , float 型 の 場合 8 バイ ト ず つ で 1 カウ ント に な り ま す 。fp は , これ か ら 

書き 込 も うと する ファ イル 番号 で , fopen の 時 の 戻り 値 で す 。 











それ で は 実際 に , fwrite を 使用 し た サン プル プロ グラ ム を 実行 し て み ま す 。 こ の 第 3 一 5 図 の 
プロ グラ ム は , 第 3 一 3 図 の プロ グラ ム と 同様 に , "X68000" と いう デー タ を "sample2. dat" と い 
う フ ァイル に 書き 込み ます 。 





19 str fn="sample2.dat" 
29 dim char x(6)=《(X "6. 89. 9 9.9) 
39 int fp,fb,fs,n=7 

49 fp=fopen(fn,"c”) 

59 fb=fwrite(x,n,fp) 

69 print fb:" バ イト “ 

79 fs=fclose(fp) 

8 end 

Tun 

7 バイ ト 

0k 
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第 3 一 5 図 fwrite サン プル プロ グラ ム 





この プロ グラ ム の 場合 第 3 一 3 図 と 同じ 動作 に する た め char 型 の 配列 を 使用 し まし た が , 使 
用 目的 に より 数 値 型 の 別 の 配列 に する こと も で きま す 。 こ の プロ グラ ム に 付い て も , files コマ ン 
ド に より 出来 上 が っ た ファ イル を 確認 する こと が 出来 ます 。 

き て , 出来 上 が っ た ファ イル を 第 3 一 4 図 の 様 に 読み 出す オプ ログ ラム を 作っ て み ま す 。 今度 は , 
fwrite と ペア に な る fread 関数 を 使い ます 。 





【FREAD】 





fv 三 fread (na, n, fD) 





数 値 型 1 次 元 配列 na 
fwrite 同様 , 数 値 型 1 次 元 配列 で す が こ れ は 人 まで の 関数 と は 少し 違っ て いて , 
引数 と し て 渡し た na に デー タ が 入っ て きま す 。 

int n, fp 

これ も fwrite 同様 、 読み 込む デー タ の カウ ント 数 n と , ファ イル 番号 fp で す 。 





int fv 
fv に は 実際 に 読み 込ん を だ カウ ント 数 が 返り ます 。 従っ て , char 型 の 場合 1 バイ 
ト , int 型 の 場合 4 バイ ト , float 型 の 場合 8 バイ ト で 1 カウ ント と な り ま す 。 








この 関数 を 使っ て , 第 3 一 4 図 同様 . 第 3 一 5 図 で 作っ た "sample2. dat" の 内 容 を 読み 込ん で 
み ま す (第 3 一 6 図 )。 





19 str s.fn=”"sample2.dat“ 
29 int fp,fv,fs,i,n=7 

39 dim char x(6) 

49 fp=fopen(fn,"r”) 

59 fv=fread(x.n,fp) 

B9 for i=9 to 6 





79 Ss=s+chr$(x(i)) 
89 next 

99 print fv:" バ イト “ 
199 print s 
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119 fs=fclose(fp) 
129 end 

run 

7 バイ ト 

X68999 

0k 

自 


第 3 一 6 fread サ ンプ ルプ ログ ラム 











(d) 文字 列 の 入出 力 【fwrites, freads】 


ここ で 説明 する fwrites、 freads と いう ファ イル 入出 力 関 数 は , 今 まで 説明 し て きた ファ イル 
入出 力 関数 (fputc. fgetc, fwrite,. fread) を 基本 と し て これ ら の 機能 の 拡張 を 
し た 関数 し いえ ます 。 str 型 の デー タ は 0 か ら 255 ま で の 文字 コー ド の 並び で すか ら , char 型 の 配 
列 と し て 扱う こと が 出来 ます 。char 型 の 配列 で あれ ば , 前 述 の 配列 の ファ イル 入出 力 関数 の 
fwrite,。 fread が 使え を ます 。 さ て , も う 一 つき か の ぼっ て み ま す 。 配列 の ファ イル 入出 力 
は , char, int, float の それ ぞ れ の 型 に より 扱わ れる バイ ト 数 が 異な り ま す 。 しかし, 1, 4, 8 
バイ ト ず つの 操作 で あれ ば , 全て char 型 の ダー タ と し て 処理 が 出来 ます 。 と な れ ば , fputc, 
fgetc に 依っ て デー タ の 入出 力 が 出来 ます 。 

この ょ うに fwrites,。 freads、 は 基本 的 に は fputc、fgetc の 拡張 関数 に な る わけ で 
す が , 扱う str 型 の ダー タ は 不定 長 で す 。 と いう の は , 変数 の と ころ で も 説明 し まし た が , str 型 
の デー タ は 宣言 する 時 に 文字 列 の 最大 長き さ を 設定 する こと で , 0 か ら 255 文 字 ま で の 範囲 が あり ま 
す 。 そのため, この 関数 を 使用 する 時 に は これ まで に な か っ た 制限 が 付き ます 。 こ の 関数 で は , 
文字 列 一 つ を 1 行 と し て 扱い ます 。 従 っ て , 文字 列 の 最後 に は 1 行 の 終了 を 示す コー ド (改行 コ 
ー ド ) を 入れ な けれ ば な り ま せん 。 改行 コー ド は 文字 コー ド の 13 と 10 で , 16 進 表現 で , &HO0D と & 
HO0A で す 。 


【FWRITES】 





書 式 | fb=fwrites (st, fp) 





引 数 | str st 

この 引数 は , これ か ら フ ァイル へ 書き 込 も うと する デー タ ( 文 字 列 ) を 入れ て ある 
も の 。 文 字 列 の 変数 また は 文字 列 。 

int fp 

こ の 引数 は 。 今 書き 込 6 う と し て いる ファ イル の 番号 を 示す も ので, fopen の 時 に 


戻り 値 と し て 返っ て きた も の 。 
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- 戻 9 値 int fp 


戻り 値 に は , この 関数 に より 書き 込ま れ た デー タ (文字 ) の 数 が 返り ます 。 








で は , 実際 に fwrites 関数 を 使っ て いく つか の 文字 列 を ファ イル へ 書き 込ん で み ま す 。 こ の 第 
3 一 7 図 の プロ グラ ム で は , 四 つ の str 型 の 変数 を 用 意 し ます 。 三 つ は それ ぞ れ x,、 Y, 2 で X- 
BASIC, X68000、GOOD と いう 文字 列 が 初期 化 き れ て いま す 。 





19 str crlf:crlf=chr$(13)+chr$(10) 
29 str x="X-BASIC",y="X68999".z="GOOD" 
39 int fp,fb,fs,n 

49 fp=fopen("sample4.dat","c”) 

59 fb=fwrites(x+crlf.fp) 

69 n=fb 

79 fb=fwrites(y+crlf.fp) 

89 nsn+fb 

9 fbsfwrites(z+crlf,fp) 

199 n=n+fb 

119 print n:" バ イト “ 

129 fs=fclose(fp) 

139 end 

run 

23 バ イト 

0k 

| | 











第 3 一 7 図 fwrites サン プル プロ グラ ム 

この プロ グラ ム の 場合 直接 扱っ て いる 文字 数 は x、 Y, zZ の 変数 に 入っ て いる 文字 列 で , 合 
計 す る と 17 バ イト で す 。 し か し fwrites を 実行 する 時 に , それ ぞ れ の 文字 列 に crlf と いう 文字 列 を 
付加 し て いま す 。 こ の crlf が 先 に 説明 し た 改行 コー ド で す 。 こ の 改行 コー ド は 文字 数 と し て 数 え 
られ ます が , 文字 列 の 終わ り を 示す null ユー ド は 数 えま せん 。 


【FREADS】 








式 fb 三 freads (st, fp) 
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引 数 


str st 

この 引数 は 特殊 な も の で , こ れ か ら 読 み 出す デー タ が 格納 され て きま す 。 従 っ て , 
以前 入っ て いた デー タ は 失わ れ ま すか ら 注 意 が 必要 で す 。 

int fp 

この 引数 は fwrites の も の と 同じ で す 。 





この 関数 を 使用 し て , 前 に 作成 し た ファ イル の 中 か ら 6 第 3 一 8 図 の 様 に デー タ を 読み 出し て み 
ます 。 第 3 一 7 図 で は , 23 バ イト だ っ た 書き 込み 文字 数 は 17 バ イト に な っ て いま す 。 





19 
20 
30 
49 
S9 
69 
79 
89 
99 
190 
110 
120 
Fun 
W 
6 
4 


Ok 
悦 





X-BASIC X68999 GO0OD 


St XX ダッ Z 

int fp.fb.fs.n 
fp=fopen("sample4.dat"、r") 
fb=freads(x,fp) 
print fb 
fb=freads(y,fp) 
print fb 
fb=freads(z.fp) 
print fb 

print X,y,Z 
fs=fclose(fp) 


end 








第 3 一 8 図 freads サ ンプ ルプ ログ ラム 


ご 覧 の よう に , 先程 書き 込ん だ デー タ が それ ぞ れ の 変数 に 読み 込ま れ て きま し た 。 行 の 終わ り 
を 示す 改行 コー ド を 入れ る まで は 1 行 と し て 取り 扱わ れ ま す が , デー タ が 文字 で 長き が 不定 の 場 
合 に は 非常 に 有効 な 関数 で ある こと が 理解 し て も ら え た と 思い ます 。 
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( e ) その 他 の ファ イル 入出 力 関数 【fseek, feof, dskf】 


これ ら の 関数 は , ファ イル に 対し て これ か ら 読 み 書 きす る デー タ の 位置 を 知ら せ た り , 記憶 装 
置 と し て , フロ ッ ピ ー デ ィ ス ク を 使用 し た 場合 の フロ ッ ピ ー の 空き 容量 を 示し た り , ファ イル の 
終了 情報 を 返し た りす る ファ イル 入出 力 関数 と し て は 、 補 助 的 な も の で す 。 


【FSEEK】 








_ 書 式 | qp=fseek (fp, os, md) 





int fp, os,、 md 
この 引数 は ファ イル の 指定 を する fp、 フ ァイル の シー ク す る 基準 位置 の 指定 を や す 
る md, 基準 位置 か ら の オフ セッ ト を 指定 する os で す 。 

O Svsssah オォ オフ セッ ト の バイ ト 数 。 


md…… シ ー ク モー ド で 次 の よう な 指定 が 出来 ます 。 
5 md=0 ファ イル の 初め か ら 
開講 mdー1 現在 の デー タ ポ イン タ か ら 





md=2 ファ イル の 終わ りか ら 





int dp 

この 戻り 値 に は , fseek 関数 実行 後 の ゲ ー タ ポイ ンタ の 位置 が 返り ます 。 この 関数 
で 、 無効 な 引数 (md で ファ イル の 終わ り を 指定 し た に も か か わら ず , オフ セッ ト 
を プラ ス 側 へ 掛け た な ど ) の 場合 に は . エラ ー と な りー1 が 返り ます 。 














この fseek は , 関数 の 書式 , 引数 , 戻り 値 の 説明 だ け で は 説明 し きれ な い 機 能 や 使い 方 が あり ま 
す 。 サ ンプ ルプ ログ ラム を 関数 の 機能 を 理解 出来 る よう に 細か くし て 解説 し て いき ます 。 

まず , 引数 か ら 解 説 し ます 。fp の ファ イル 番号 に 付い て は , 他 の 関数 と 同じ で す 。 md と os に 
よ ょ りこ の 関数 は 決定 され る と 言っ て も よい は ほど で , 重 要 な ポイ ント に な り ま す 。 次 に あげ る 第 3 一 
9 図 は fputc の と ころ で 作成 し た sample1. dat と いう ファ イル の 中 身 で す 。 





ェ ーー 文字 で は な く , 文字 コー ド が 入っ て いる 

NULL ュー ド 

li 

0 1 2 3 4 5 6 

SOF ! | EOF 
ポイ ンタ 番号 











第 3 一 9 図 sample1.dat の ファ イル の 内 容 


wunvvnununvnvnununvnvnvrumunvvrunvnvnvrvnunvmvrununvnvrvnunvnvnvnununvnvnunvnvnvmununvnvnvnunvnvrvnunvnvwvrunvnvnvnunvnvnvrunvnvn うー] EE 人 上 光 vn 


この 中 に ,SOF と EOF と いう も の が あり ます が , こ れ は ファ イル の 始め と 終わ り を 意味 し て い 
ます 。 X68000 と いう 文字 は , fputc で は 文字 で は な く 文 字 コ ユー ド と し て 書き 込み まし た 。 この 状態 
で , samplel1. dat いう ファ イル を open する と, デー タ ポ イン タ は 0 の 位置 に あり ます 。 従っ て 
fgetc で 実行 し だ な 第 3 一 4 図 の プロ グラ ム で X68000 ほ と いう デー タ が 読み 込め た わけ で す 。 し か 
し , ブロ グラ ム 作 成 時 に 、 ファ イル の 途中 か ら 読み 書き わし た いな ど と いう 要求 は 良く ある こと 
で す 。 こ の よう な 場合 に , fseek が 使わ れ ま す 。 

で は , 実際 に X68000 の 68000 だ け を 取り 出し て みる こと に し ます 。 理 届 と し て は , デー タ ポ イ 
ンタ を X68000 の 6 の 所 へ 持っ て いけ ば よい わけ で すか ら , fseek の 引数 に , md 三 0 (ファ イル の 
始め か ら ) os 三 1 (デー タ ポ イン タ を 一 つ 進 め た 位置 ) と 指定 すれ ば よい で す 。 実 際 に 第 3 一 10 
図 で 確認 し て 下さ い 。 





19 str fn="samplel.dat".s 
29 char d 

39 int fp,fs,i,t 

49 fp=fopen(fn,"r") 
59 dpsfseek(fp,1.0) 
69 for i=@ to 5 


7 t=fgetc(fp) 
80 d=t 

99 S=s+chr$(d) 
199 next 


119 fclose(fp) 
120 print fs,s 
139 end 

run 

1 68000 
0k 

画 











第 3 一 10 図 fseek サン プル プロ グラ ム 


ご 覧 の 通り , fseek に より デー タ ポ イン タ が 一 つ 進 ん び どこ と が 確認 出来 。 読み 出し た 文字 列 も 
68000 と な り ま す 。 fseek の 引数 の os の 補足 で す が , バイ ト 単 位 ど わる こと か ら , fwrite や fread 
の 時 は 使用 し て いる 数 値 型 配列 の 型 に より 若干 手 を 加え て や ら な けれ ば な り ま せん 。fputc, fgetc 
で は 扱う デー タ が 1 バイ ト 単 位 な の で , オフ モッ ト も その まま の 数 値 で し た が , int 型 , float 型 の 
デー タ を 扱う 場合 に は それ ぞ れ 4 倍 , 8 倍 の 数 値 を 使用 し な けれ ば な り ま せん 。 
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それ で は 、 も う 少 し fseek を 使っ て 色々 な こと を 実行 きせ て み ま す 。 次 に あげ る 第 3 一 12 図 は , 
最初 に あら か じ め 30 個 の "*”" (アス タリ スク ) を 書き 込ん で ある ファ イル (sample4. dat) に 任 
意 の 位置 に キー ボー ド か ら 入 力 し た 文字 を 書き 込む な も の で す 。 ま ず 最 初 に sample4. dat を 用 意 し 
な けれ ば な ら な い の で , 第 3 一 11 図 を 入力 , 実行 し て 下さい 。 次 に , 第 3 一 12 図 を 入力 し て 下さ い 。 








19 
20 
39 
40 
59 
69 


int fp 

Str SD ニ = ”* ネ 米 本 玉 玉 玉 ギ 本 玉 玉 玉 李 玉 米 玉 六 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 水玉 ポ 
fp=fopen("sample4.dat","c”) 
fwrites(sp+chr$(13)+chr$(19),fp) 
close(fp) 


end 





第 3 一 11 図 sample4.dat の ファ イル を 作る 





109 
20 
39 
49 
59 
60 
79 
89 
99 
100 
119 
129 
139 
140 





int fp,p:str st,k 


fp=fopen("sample4.dat". “rm”) 
repeat 

input "position(9-29):",p 
input "character:",k 

print 

dp=fseek(fp,p,9) 


fs=fputc(asc(k).fp) 
until k="*" 
fseek(fp, 9,9) 
freads(st,fp) 

print st 

fclose(fp) 


end 








第 3 一 12 図 fseek サン プル プロ グラ ム 


この プロ グラ ム を 実行 する と 


まず デー タ ポ イン タ を 聞い て きま すか ら , 


0 か ら 29 ま で の 数 値 


を 入力 し て 下さい 。 次 に , 書き 込み た い 文字 (キー か ら 入 力 出 来る も の ) 1 文字 入力 し て リタ ー 
ン キ ー を 押す と , 次 の ポジ ショ ン を 聞い て きま す 。 これ を 続け て いっ て , 入力 し た い 文 字 の と こ 
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ろ に "*" を 入力 する と 30 個 の "*” に 先程 指定 し た 位置 に 入力 され た 文字 が 入っ て いる 文字 列 が 表 
示 る され ます 。 も ちろ ん ファ イル の 中 が その よう に 変更 きれ て いる の で す 。 こ の プロ グラ ム で 中 心 
と な る の は , 70 行 の fseek と 100 行 の fseek で す 。 70 行 の fseek で は 書き 込み た い 位置 へ データ ポ 
イン タ を 移動 し て , 100 行 の fseek で は ファ イル の 中 身 全 部 を 読み 出す こと か ら , ファ イル の デー 
タ ポ イン タ を ファ イル の 先頭 に 戻す 作業 を し て いま す 。 

この 他 に も fseek に は 変わ っ た 使い 方 が あり ます 。 し か し これ は , feof と 深い か か わり が ある 
の で 次 に まわ し ます 。 


【FEOF】 





書 式 | fs=feof (fp) 





引 数 | int fp 
指定 する ファ イル 名 で , fopen の 時 に 戻り 値 と し て 返さ れ だ た も の 。 








戻り 値 | int fs 
指定 され た ファ イル が 終了 の 位置 に き て いる か が 返り ます 。 も し 終了 し て いれ 
ば ー 1, まだ 終了 の 位置 で は な い 時 は 0 が 返り ます 。 














この 関数 を 使っ て , sample1. dat と いう ファ イル に 何 バ イト の デー タ が ある か を 調べ て み ま 
す 。sample1. dat は , fputc の 説明 の と ころ で X68000 と いう 文字 コー ド が 入っ て いて , ヌル コー 
ド を 含め て 7 文字 (7 バイ ト ) の は ず で す 。 こ の 第 3 一 13 図 の プロ グラ ム は , sample1. dat を open 
し た 時 に は デー タ ポ イン タ が 0 に な っ て いる こと か ら , fgetc で 1 文字 ずつ 読み 込ん で いっ て は , 
feof で ファ イル の 終わ りか どう か を チェ ッ ク し ます 。 





19 int fp,fs,n,t 

29 fp=fopen("samplel.dat".r”) 
39 repeat 

49 t=fgetc(fp) 

59 n=n+1 

69 until feof(fp)=-1 

79 print "filesize=":ni "bytes' 
89 fclose(fp) 

99 end 


TUn 





filesize= 7bytes 
0k 





aw 第 3 章 標準 関数 と 外部 関数 wwwwwvwvwvmwwynvnvnanannvnwnunwnunwnwnununununununvnvnvnvnvnvnvnvnvnvnvnvnvnvnvnvnvnvnvnVnvnVnVnVnvnVnununt 


第 3 一 13 図 feof サン プル プロ グラ ム 





ここ で , 前 述 の fseek 関数 の 登場 に な り ま す 。 フ ァイル の サイ ズ を 知る た め に は , fseek の md 
(シー クモ ー ド ) を 2 に し て OS (オフ セ モット) を 0 に し て fseek を 実行 すれ ば , 戻り 値 と し て 現 
在 の デー タ ポ イン タ 有 即ち, ファ イル の 一 番 最後 の 位置 が 返っ て きま す 。 こ の 数 値 は この ファ イル 
の 大 きき を 意味 し て いま す 。 実際 に 第 3 一 14 図 の アプ ログ ラム で 確認 し て 下さ い 。 





19 int fp,fs,n,t 

29 fp=fopen("samplel.dat”.“"r”) 
39 nsfseek(fp, 9,2) 

49 print "filesize=":ini "bytes”" 
S9 fclose(fp) 

69 end 

run 

filesize= 7bytes 

Ok 

画 


第 3 一 14 図 fseek で ファ イル サイ ズ を 読む 

第 3 一 13 図 と 同じ 結果 が 得 ら れ ま す 。 こ の よう に feof を ファ イル サイ ズ を チェ ッ ク す る た め に 
使う の で あれ ば , fseek の 方 が 有効 で も ある と いえ ます 。 
【DSKF】 

















書 式 | s=dskf(i) 





int i 
この 引数 は , これ か ら 調 べた い フ ロッ ピー ディ スク を 指定 する も の で , ドラ イブ 
の 指定 を し ます 。 ド ライ ブ の 指定 は 次 の よう に な り ま す 。 

0 …… カレ ント ドラ イブ 

evewo A ドラ イブ 





int s 
指定 きれ た ドラ イブ の フロ ッ ピ ー デ ィ ス ク の 空き 容量 を 返し ます 。 
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第 3 一 15 図 の プロ グラ ム で は , 現在 ドラ イブ A に 入っ て いる フロ ッ ピ ー の 残り 容量 が 表示 きれ 
ます 。 





19 print dskf(1) 


29 end 





第 3 一 15 図 dgskf サン プル プロ グラ ム 


これ まで に , ファ イル 入出 力 関数 に 付い て 解説 し て きま し た が ,X-BASIC を 使っ て いく うち に 
色々 な デー タ を を フロッピー に 蓄え て お きだ た く な っ た だ たり , これ か ら 解 説 し て いく 外部 関数 等 で 作っ 
に 音楽 演奏 デー タ や , グラ フィ ッ ク デ ー タ 等 も フロッピ ー に 記憶 し て お きた いな どの 要求 が 出 て 
きま す 。 十 分 理解 し て , 大 切な デー タ を 保管 し て 下る い 。 使い 方 に よっ て は 便利 な 関数 も , 間 悦 
っ た 使い 方 を する と 大 事 な デ ー タ を 消去 きせ た りす る 凶器 に も な りか ね ませ ん 。 


=ja = 所 | デー タ の 変換 関数 


X-BASIC に は , char 型 。int 型 。float 型 。str 型 の デー タ な ど 、 用 途 に 応じ た 形 の デー タ が あ 
り ま す が , ブロ グラ ム を 作っ て いく うち に は 必ず と いっ て よい ほど , それ ら を 変換 し て 違う 形 の 
デー タ に し た いと いう こと が 起き て きま す 。 例えば, 10 進 法 を 16 進 法 に し た いと か , 数 値 の デー 
タ を 文字 列 に し た いと か で す 。 そう いう 時 に 便利 な の が , デー タ の 変換 の 関数 で す 。 

一 般 的 に は , 次 の よう な 形 で 表し ます 。 








これ を , ASC と いう 関数 で あて は め て みる と 
rasc (1) 
n に 引数 の 値 を 代入 し て お け ば , r に 結果 が 入っ て くる と いう わけ で す 。 も ちろ ん Tr と nm は , あ 
ら か じ め デ ー タ の 型 を 宣言 し て お か な けれ ば な り ま せん 。 こ こ で , 引数 は str 型 で , 戻り 値 は int 


型 だ と する と , 第 3 一 16 図 の よう に な り ま す 。 














19 str n 

29 。 int r 

39 n = "AT 

49 r = asc(n) 
59 print r 

69 end 
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run 
65 
0k 
男 
第 3 一 16 図 デー タ 変 換 関数 の 使用 例 





行 番号 10 で 引数 を , 行 番号 20 で 戻り 値 を それ ぞ れ 宣言 し て いま す が , 関数 に よっ て この 型 は 変 
わっ て きま す の で , それ は に 合っ た 型 宣言 が 必要 で す 。 

る て , この デー タ 変 換 関数 に は , 機能 に つい て 分 類 し て みる と 引数 と 戻り 値 に 付い て も 分 類 出 
来 ま す 。 こ れ を まとめ る と , 第 3 一 17 図 の 様 に な り ま す 。 





戻り 値 str 型 ・・・・・ BIN$, OCT$, HEX$ 
CHR$, STR$, GCVT 
ITOA, ECVT, FCVT 


戻り 値 int 型 ・・・・・・ ASC, ATOI, INT 
TOASCII,、 TOLOWER, TOUPPER 


戻り 値 float 型 ・・・・・ FIX, ATOF, VAL 











第 3 一 17 図 デー タ 変 換 関数 


それ で は , それ ぞ れ の 関数 に 付い て 説明 し ます 。 


(a) 戻り 値 が str 型 の 関数 


戻り 値 が str 型 の 関数 で , 引数 が 数 値 型 の も あの は その も の ズバ リ 、 数値 を 文字 列 に 変換 し た い 時 
に 使用 し ます 。 表 現し た い 数 値 の 形 や 変 た る も の も あり , また その まま 文字 列 に する も の や 色々 
と あり ます 。 次 に あげ る 関数 は , 数 値 を 文字 列 に 変換 する 時 に その 数 値 の 表現 方 法 ま で 変え て し 
まう も の で す 。 


【BIN$ 】 
int 型 の デー タ を 2 進数 に 変換 し て 文字 列 と し て 返し ます 。 上位 の 0 は 除 か れ ま す 。 





書式 | r=bin$(n) 









int n 





str r 
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この 関数 の 動作 を , 次 の 第 3 一 18 図 の サン プル プロ グラ ム て 確認 し て みて 下さ い 。 





19 int x=15,y=16 
2 str a,b 

39 a=bin$(x) 

4 b=bin$(y) 

59 print a.b 

69 end 

Tun 

1111 190999 

Ok 

導 











第 3 一 18 図 BIN や サン プル プロ グラ ム 











【OcT$】 
int 型 の ダー タ を 8 進数 の 文字 列 に 変換 する 関数 で す 。 
書生 式 roct$(n) 
ER 
引 数 | intn. 
戻り 値 | strr 











この 関数 を 次 の 第 3 一 19 図 で 確認 し て 下さ きい 。 





19 int x=192 
20 str a 

39 a=oct$(x) 
49 print a 
59 end 

Fun 

146 

0k 
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第 3 一 19 図 OCT も $ サ ンプ ルプ ログ ラム 


【HEx $ 】 
int 型 の デー タ を 16 進 数 の 文字 列 に 変換 する 関数 で す 。 上 位 に 0 が ある 場合 は 、 取 り 除 か れ ま 





rーhex$(n) 





int n 





Str Tr 














この 関数 の 確認 は , 次 の 第 3 一 20 図 で 行っ て 下さ きい 。 





19 int x=128 
29 str a 

39 a=hex$(x) 
49 print a 
59 end 

run 

89 

0 ト 

凡 











第 3 一 20 図 HEX や サン プル プロ グラ ム 


ここ に あげ た 三 つ の 関数 は 全て 引数 が int 型 で 戻り 値 は その 数 値 に 対す る 2 進 表 現 。 8 進 表 
現 , 16 進 表現 で す 。 こ の よう に 数 値 の 表現 を 変え る 関数 も デー タ 変 換 に な り ま す 。 

次 に あげ る 関数 は , 数 値 を 文字 に する も の の 中 で 考え 方 が 特殊 で , 初め か ら 文 字 で びあ る こと を 
意識 し て いる 数 値 (文字 コー ド ) を 扱う 時 に 使用 し ます 。 前述 の ファ イル 入出 力 関数 の と ころ で 
も 触れ まし た が , ファ イル の 中 に 入っ て いる デー タ は 文字 で あろ うと 数 値 ど あろ うと 全て 数 値 と 
し て 保存 きれ て いま す 。 こ の よう な ファ イル の 中 の デー タ を 文字 と し て 扱え る よう に する 関数 が 
chr $ で す 。 


【CHR $ 】 
ASC の 反対 で , キャ ラク ター ユー ド を 引数 に し て 文字 を 返す 関数 で す 。 引 数 は , 0 一 255 の 間 で 
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な けれ ば な り ま せん 。 





書式 rchr$(n) 








引 数 | charn 
戻り 値 | strr 











この 関数 を 次 の 第 3 一 21 図 で 確認 し て 下さ い 。 こ の 関数 で 扱わ れる 引数 は , char 型 な の で 当然 
引数 は 0 か ら 255 ま で の も の と な り ま す が , 色々 な 数 値 を 代入 し て 確認 し て みる と , 表示 出来 な い 
も の も あり ます 。 こ の よう に 表示 出来 な いも の に 付い て は , X-BASIC の マニ ュ ア ル の 人 巻末 に コン 
トロ ー ル コー ド と し て 紹介 きれ て いま す 。 コ ユン トロ ー ル コー ド に 対応 する 機能 を print 文 に より 
使用 する こと が 出来 ます 。 





19 int x=65 
29 str a 

39 a=chr$(x) 
49 print a 
5 print a 
6 end 

run 

A 

0k 

画 











第 3 一 21 図 CHR も サン プル プロ グラ ム 


次 に あげ る 関数 は , 数 値 を 文字 列 に を そのまま, 又は 表示 文字 数 に 制限 を 付け た り そ の 文字 列 の 
情報 を 分 解 し て 戻し た りす る も の で す 。 与 えた 引数 を を の まま 文字 列 に 変換 する と いっ て も 関数 
が 存在 し て いる 以上 その 必要 性 が あっ て の こと で す 。 し か し どの 関数 で も いえ る こと で す が , 使 
う の は ユー ザー で すか らい ろ ん な 使い 方 や 見 つけ て みて 下さ い 。 


【ITOA】 
int 型 の ダー タ を 文字 列 に 変換 する 関数 で す 。 





r 三 itoa (Tn) 








|* = 
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int n 








str r 








この 関数 を や , 第 3 一 22 図 に より 確認 し て 下さ い 。 こ の 関数 で は , 数 値 が 文字 列 と し て 扱わ れ た 
場合 の 特長 を 確認 する こと が 出来 ます 。 





19 int x=1999,y=19 
29 str a,b 

39 a=itoa(x) 

49 bsitoa(y) 

59 print x+y.a+b 
59 end 

run 

1919 19090919 














第 3 一 22 図 ITOA サン プル プロ グラ ム 


【STR$】 
float 型 の デー タ を 、 文 字 列 に 変換 する 関数 で す 。 








rstr$(n) 





float n 





str r 








この 関数 の 確認 は , 次 の 第 3 一 23 図 で 行っ て 下さ きい 。 





19 float x=19.1#,y=9.1 梓 
2 str a,b 

39 acstr$(x) 

49 bsstr$(y) 

59 print a+b 

69 end 


Yun 








Janummvnnvnunvnunvnunvnnvnunvnunvnvnvrumvnunvnvnvnvmvnvnunvnnvnunvnunvnunvnunvnunvnunvnvnvnvnvnvnvnvnvnvnunvnunvrunvrunvmunvnun うー] 本 人 関 天 vw 


19.19.1 
Ok 
画 





第 3 一 23 図 STR も サンプ ルプ ログ ラム 


【GCVT】 
float 型 の デー タ を , 指定 され た 桁 数 の 文字 列 に 変換 する 関数 で す 。2 番目 の 引数 に よっ て 桁 数 
を 指定 し ます 。 





書 式 rgcvt (nl1, n2) 





引 数 1 番 日 float n1 
2 番目 int  n2 





戻り 値 | strr 











この 関数 で 指定 され る 桁 数 は , n 1 の 値 に よっ て 桁 数 の 意味 が 変わ っ て きま す 。 次 の 第 3 一 24 
図 で その 培い を 確認 し て 下さ い 。 





19 float x=@.111,y=12.11# 
29 str ab 

39 a=gcvt(x,3):b=gcvt(y,3) 
49 print a,b 

5 end 

run 

9.111 2s きま 

0k 











第 3 一 24 図 GCVT サ ンプ ルプ ログ ラム 
ご 覧 の よう に , と どちら も 指定 桁 数 は 3 桁 に し て あり ます が , 結 果 は 変数 8 が 0.11T, 変数 b が 12 .1 
と な っ て いま す 。 これ は 小数 点 を 含ま ず , 小数 点 以 上 の 数 値 が な い 場 合 は 小数 点 以 下 の 桁 数 が , 
小数 点 以上 の 桁 が ある 時 は , 小数 点 以上 の 桁 数 を 優先 し ます 。 
これ 以外 に 関数 の 結果 が 二 つ 以 上 の 値 を 持つ 特殊 な 関数 だ あり ます 。 戻 り 値 は , 関数 で は 1 個 
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の 値 し か 持て な い の で , それ ら は 引数 に も 値 を 返し て いま す 。 
以下 の 関数 は そう いう 特殊 な も の で す 。 


【ECVT】 
float 型 の デー タ を 文字 列 に 変換 し て 戻り 値 と し , 文字 列 の 小数 点 以 下 の 桁 数 と , 小数 点 の 位置 
と , プラ ス , マイ ナス の 符号 を それ ぞ れ int 型 の 引数 に 返し ます 。 





r デ ecvt (n1, n2,n3. n4) 





n 1…… float 型 で 与え ます 。 

n 2 …… int 型 で , 文字 列 の 小数 点 以下 の 桁 数 を 返し ます 。 

n 3 …… int 型 で 、 小 数 点 の 位置 を 返し ます 。 

人 信 RYet int 型 で 、 プ ラス の デー タ な ら 6 0 を, マイ ナス な ら 1 を 返し ます 。 





strr 数 字 だ け の 文字 列 が 返り ます 。 











【FCVT】 
float 型 の デー タ を 文字 列 に 変換 し て 戻り 値 と し , 文字 列 の 桁 数 と 、 小数 点 の 位置 し , プラ ス , 
マイ ナス の 符号 を それ ぞ れ int 型 の 引数 に 返し ます 。 





rーfcvt (n1。 n2。n3、n4) 





n 1 …… float 型 で 与え ます 。 

n 2……int 型 で 文字 列 の 桁 数 を 返し ます 。 

n 3……:int 型 で 小数 点 の 位置 を 返し ます 。 

隔 凌 Rea int 型 で 、 プ ラス の デー タ な ら 0 を , マイ ナス な ら 1 を 返し ます 。 





strr 数 字 だ け の 文字 列 が 返り ます 。 











(b) 戻り 値 が int 型 の 関数 


これ か ら 紹 介する 関数 は 戻り 値 が int 型 の も の で す 。 と いう こと は , な に か (引数 ) を 数 値 に 変 
換 す る こと が わか り ま す 。 こ の よう に , 関数 の 引数 と 戻り 値 ど だけ を 評価 する だ け で , お お よそ の 
子 想 が 立て られ る の も 関数 の 面白 に と ころ で す 。 


【ASC】 
文字 の キャ ラク ター コード (ASCII ユー ド ) を 返す 関数 で す 。 引 数 2 個 以上 の 文字 列 の 時 は , 


(mnununununvnvnvnvnvnunvnunvrvmvnvnvnvnvnvnvnvnvnvnvnvnvnvnunvnunvnvnununununumununununununununvnunvnvnvnvnvnvnvnvnvnvnvnvnvnvnvmvn うー] 想 記 佑 関 麗 umun 


最初 の 文字 の キャ ラク ター コー ド を 返し ます 。 





書 式 | r=asc (n) 


引 数 | strn 


戻り 値 int r 




















この 関数 は chr$ の 逆 の 変換 を する ぉ の で す が , 戻り 値 は int 型 で す 。 chr $ で は 引数 が char 型 
で し た か ら 違 う よ う で す が 、 実際 に 戻り 値 と し て 返さ れる の は 文字 コー ド な の で 機能 的 に は chr 
$ の 逆 の 変換 と いう こと に な り ま す 。 

戻り 値 と し て の int 型 の ゲー タ は も ちろ ん 文字 コー ド で ある 以上 ,、 0 か ら 6255 ま で の 数 値 で す 。 
従っ て char 型 の 変数 に この 戻り 値 を 代入 する こと が 出来 ます 。 こ の よう に X-BASIC で は , 数 値 
型 デ ー タ は 型 が 違う 変数 同士 で 代入 する こと が 出来 ます 。 こ れ を 型 変換 と いい ます が , 桁 あ ふれ 

(オー バー フロ ー) が 起こ る と エラ ー に な っ て し まう の で 注意 が 必要 で す 。 こ の 関数 は 次 の 第 3 一 
25 図 に よっ て 確認 し て 下さ い 。 





19 str x="X-BASIC" 
29 int a 

39 a=asc(x) 

49 print a 

59 end 

Fun 

88 

0k 

画 











第 3 一 25 図 ASC サ ンプ ルプ ログ ラム 


【AToI】 

文字 列 を int 型 の 数 値 に 変換 する 関数 で す 。 文 字 列 は , int 型 に 変換 で きる 内 容 び な けれ ば な り 
ませ ん 。 変換 で き な い 文字 が ある と , そこ て 変換 を や め ま す 。 ま た , 文字 列 が null の 時 に は エラ 
ー に な り ま す 。 


| * 式 | ratoi (n) 
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Str n 





int r 








この 関数 は 先程 の asc 関数 の 様 に str 型 の デー タ を jint 型 に 変換 する も の で す が , 文字 コー ド 
で は な いく 文 字 列 と し て 表現 きれ て いる 数 値 や 元 の 数 値 に 変換 する も の で す 。 この 関数 は itoa の 逆 
の 変換 を する も の で す 。 こ の 関数 は 第 3 一 26 図 に よっ て 確認 し て 下さ い 。 








19 str x="9.991",y="53.5”" 
20 int a,b 

39 a=atoi(x) 

49 b=atoi(y) 

59 print a+b 

59 end 

Tun 

5S3 

0 ト 

画 











第 3 一 26 図 ATOI サ ンプ ルプ ログ ラム 


これ まで は , 引数 か 戻り 値 の どちら か に str 型 の も の が あり まし た が , 以下 の 関数 に は int 型 と 
float 型 と char 型 し か あり ませ ん 。 言い換え れ ば , 数 値 の デー タ 変 換 の 関数 し いう こと に な り ま 
す 。 し か し , 文字 を 扱う 時 に 使用 する 関数 と も 言え ます 。 こ の 中 に ある , toascii, tolower, toupper 
と いう も の が そう で す 。 


【INT】 
float 型 の デー タ の 小数 点 以下 を 切り捨て て , int 型 の ダー タ と し て 返し ます 。 





rint (n) 





float n 





int r 











この 関数 は 従来 の BASIC で も 使わ れ て いた も の で す が , 変数 の 型 や データ の 型 が は っ きり し 
て いる XX-BASIC の 場合 で は , 引数 に float, 戻り 値 に int と な る の は 言う まで も あり ませ ん 。 こ 
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の 関数 は 次 の 第 3 一 27 図 で 確認 し て 下さ い 。 





19 float x=12.345# 
29 int a 

39 a=int(x) 

49 print a 

Sg end 

Tun 

12 

0 ト 

鐘 











第 3 一 27 図 INT サ ンプ ルプ ログ ラム 

ご 覧 の よう に , 引数 の 小数 部 分 が 切り 捨て られ て int 型 の デー タ に 変換 きれ まし た 。 

ここ か ら 紹 介する 三 つ の 関数 は , 文字 (アル ファ ベッ ト ) の 大 文字 を 小文字 に , 小文字 を 大 文 
字 に , 与 を られ た 文字 コー ド を 0 から 127 の アル ファ ベッ ト や 記号 の 文字 コー ド に 変換 する も の で 
す 。 し か し 文字 に 変換 する の で は な く , 文字 コー ド に 変換 する こと に 注意 し て 下さ い 。 


【TOASCII】 
引数 が ASCII 文字 コー ド で な けれ ば , ASCII 文字 コード に 変換 し て , int 型 の デー タ と し て 返 
し ます 。 引 数 が 。 ASCII の 文字 コー ド の 場合 に は , その まま int 型 デ ゲー タ と し て 返し ます 。 





書 式 | rtoascii (n) 














引 数 | charn 
戻り 値 | intr 
【TOLOWER】 


引数 が 英 大 文字 びあ れ ば 英 小 文字 に 変換 し , int 型 デ ゲー タ と し て 返し ます 。 引数 が 英 大 文字 で な 
い 時 は , その まま int 型 デ ゲー タ と し て 返し ます 。 





rtolower (n) 








char n | 
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| int r 


【TOUPPER】 
引数 が 英 小文字 で あれ ば 英 大 文字 に 変換 し , int 型 デ ー タ と し て 返し ます 。 引数 が 英 小文字 で な 
い 時 は , その まま int 型 デ ー タ と し て 返し ます 。 














rtoupper (n) 





char n 





int r 








この 関数 を 確認 する プロ グラ ム は , 次 の 第 3 一 28 図 へ まとめ て あり ます か ら , 違い や 動作 に 付 
いて 確認 し て 下さ い 。 











19 char y='a'".Z= AA 
29 int s,t,u,v,W,x 
3 s=toascii(y) 

49 t=toascii(z) 

59 utolower(y) 

B9 v=tolower(z) 

79 w=toupper(y) 

89 x=toupper(z) 

99 print s.t.u.v,w.x 
199 end 
run 


97 65 97 97 65 65 











第 3 一 28 図 TOASCII。 TOLOWER, TOUPPER サン プル プロ グラ ム 


それ ぞ れ の 引数 が 関数 の 機能 どおり に 変換 され て いま す 。 こ の 第 3 一 28 図 の 中 に '( ア ポス トロ 
フィ ー) で 囲ま れ だ た アル ファ ベッ ト が あり ます が , これ は その 文字 が 示す 文字 コー ド を 意味 する 
も ので, char 型 の 変数 へ 数 値 で 代入 する の で は な く , 直接 文字 を 表記 し て その 文字 コー ド を 代入 
し よ ょ うと する も の で す 。 こ うし て 考え て みる と , この アポ スト ロフ ィ ー で 囲ま れ た 表現 は , 引数 
が 1 文字 の str 型 の デー タ を char 型 の 文字 コー ド に 変換 する 関数 で ある と 言え ます 。 
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(c) 戻り 値 が float の 関数 


【ATOF】 

文字 列 を float 型 の 数 値 に 変換 する 関数 で す 。 文 字 列 は , float 型 に で きる 内 容 で な けれ ば な り 
ませ ん 。 変換 で き な い 文字 が ある と , そこ で 変換 を や め ま す 。 ま た , 文字 列 が null の 時 は , エラ 
ー と な り ま す 。 小 数 点 や 指数 を 示す e また は E が ある 時 は , その 前 後に 1 個 ず つっ 以上 の 数 字 が な 
けれ ば いけ ませ ん 。 





書 式 | r=atof (n) 








引 数 | strn 
戻り 値 | float r 














この 関数 は str$ の 逆 の 変換 を する 関数 で す 。 し か し , 数 値 を 文字 別に する こと は 何 の 制 約 も あ 
り ま せん が , 文字 列 を 数 値 に 変換 する 時 に は 色々 と 注意 し な けれ ば な ら な いこ と が あり ます 。 を 
れ は , 数 値 と いえ ば 0 か ら 9 ま で の 数 字 と 小数 点 の . (ピリ オド ) や 指数 を 表す e ま た は EE と 符号 
の 十 や ー が ある で らい で す が , 文字 列 と いっ て し まえ ば 必ず し も 上 記 の 文字 で 構成 され て いる 保 
証 は あり ませ ん 。 こ れ は 文字 列 を 数 値 に 変換 する 時 の 重要 な ポイ ント で す 。 こ の 関数 は 第 3 一 29 
図 で 確認 し て 下 き い 。 





19 str x="9.091".y=9.1t5" 
29 float a,b 

39 a=atof(x) 

49 batof(y) 

59 print a,b 

69 end 

run 

9. 991 9.1 

0k 

調 











第 3 一 29 図 ATOF サン プル プロ グラ ム 
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【FIX】 
float 型 の ダー タ の 小数 点 以下 を 切り捨て て , float 型 の デー タ と し て 返す 関数 で す 。 





rfix (n) 





float n 





float r 











この 関数 は float を int に 変換 す る int 関数 と 同じ 働き を し ます が , 戻り 値 は float 型 の まま で 
す 。 動作 は int 関数 と 同じ で す 。 


【VAL】 
文字 列 デ ー タ を float 型 の デー タ に 変換 する 関数 で す 。atof 関数 と 同じ 働き を し ます 。 





r 三 val (1) 





Str n 





float r 


= 文字 列 処理 


(a) 文字 列 の 種類 を チェ ッ ク す る 関数 


文字 列 処理 関数 の な か で , ISX※※※ と いう 関数 は , 1 文字 の デー タ に 対し て それ が どん な 種 
類 の 文字 びあ る か を チェ ッ ク す る 関数 で す 。 1 文字 と は いっ て も , その チェ ッ ク の 対象 と な る の 
は , char 型 の 数 値 で す 。 変数 の 説明 に も あり まし た が , char 型 は 0 一 255 の 数 値 を 扱う デー タ 型 
で す が , その 用 途 は 文字 デー タ の 取扱 い に 適し て いま す 。 こ こ て で 説明 する ISX メ ※※ と いう 関数 
は , 全て この char 型 の デー タ に 対し て , それ が チェ ッ ク の 対象 と な る か どう か 調べ , int 型 の デ 
ー タ の 0 か ー 1 を 返す も の で す 。 で すか ら , 引数 は 必ず char 型 で , 戻り 値 は int 型 に な が り ま す 。 
従っ て , 実際 に この 関数 を 使用 する 場合 文字 列 の 中 の どの 文字 を 調べ た いか , また その 1 文字 
だ け を どの よう に 取り 出せ ば よい の か を 十分 に 知っ て いる 必要 が あり ます 。 

ここ で 少し その 方 法 に つい て , 簡単 な も の を 説明 し て お きま し ょ う 。 

第 3 一 30 図 の ゲロ グラ ム の よう に 変数 a を str 型 と し て 宣言 し , "X-BASIC" と いう 文字 列 が 入 
っ て いる と し ます 。 を の 中 の 3 番目 の 文字 を 取り 出し た い 時 , a [ 2 ] と 書く と char 型 と し て 3 
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番目 の 'B'" の デー タ (数 値 と し て は , 66) が 取り 出せ る の で す 。 a [2] の 2 は , 0 か ら 6 数 ぇ て 3 番 
目 が 2 に な る か ら で す 。1 番 目 の 時 は a [ 0 ] と 書き ます 。 こ うい う 方 法 で char 型 デ ゲー タ が 取り 出 
せる の は , お そら < く X-BASIC の 内 部 で str 型 た いう 型 が , char 型 の 配列 と 同じ よう な 扱い に な 
っ て いる か ら だ と 思わ れ ま す が , と に か く 覚 た て お 〈 と 便利 な こと で し ょ う 。 





19 str a = “"X-BASIC” 
29 print a[2] 

Fun 

56 

0k 

較 











第 3 一 30 図 文字 列 よ り 任意 の デー タ を 取り 出す 

これ か ら 説 明 す る 関数 は 全て 引数 が char 型 で , 戻り 値 が int 型 で す 。 ま た , それ ぞ れ の 関数 の 
違い は 何 を 調査 対象 に する か で 、 調 べ 方 及び 調べ た 結果 の 表現 の し か た は 全く 同じ で すか ら 6, 基 
本 的 な 使用 例 を 第 3 一 31 図 に 示し て お きま す 。 





19 char n= 
29 int r 

39 r=isxxxXx(n) 
49 print r 

59 end 

run 

9 表 だ 仁 -1 

Ok 

回 











第 3 一 31 図 IS メメ メメ 関数 の 基本 的 な 使用 例 


【ISALNUM】 
デー タ が 英 数 字 で ある か どう か 調べ , 英 数 字 で あれ ば ー 1 を 、 そ う で な けれ ば 0 を 返し ます 。 
英 数 字 と は 英 大 文字 (AーZ), 英 小 文字 (aーZ), 数 字 (0 一 9) の 文字 コー ド で す 。 


【ISALPHA】 
デー タ が 英字 で ある か どう か 調べ , 英字 で あれ ば ー 1 を , そう で な けれ ば 0 を 返し ます 。 英字 
と は 英 大 文字 (AーZ), 英 小 文字 (az) の 文字 ユー ド で す 。 
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【ISASCII】 

文字 コー ド の デー タ が アス キー 文字 で ある か どう か 調べ で .、 アス キー 文字 で あれ ば ー 1 を , そう 
で な けれ ば 0 を 返し ます 。 ア スキ ー 文 字 と は , 文字 コー ド が 0 一 127 (&H00 一 &H7F) の 文字 で 
。 


【ISCNTRL】 

文字 ユー ド の デー タ が コン トロ ー ル 文字 か どう か 調べ で 、 ユン トロ ー ル 文字 で あれ ば ーー 1 を , を 
う で な けれ ば 0 を 返し ます 。 コ ユン トロ ー ル 文字 と は , 文字 コー ド が 0 一 31 と 127 (&H00 一 HI1F 
と &H7F) の 文字 で す 。 


【ISDIGIT】 
文字 ユー ド の デー タ が 数 字 で ある か どう か 調べ , 数 字 で あれ ば ーー 1 を 、 そう で な けれ ば 0 を 返 
し ます 。 数 字 と は , 0 一 9 の こと で す 。 


【ISGRAPH】 
文字 コー ド の デー タ が スペ ー ス 以外 の 表示 可能 な 文字 か どう か 調べ で 、 そ う で あれ ば ー 1 を, そ を 
う で な けれ ば 0 を 返し ます 。 ス ペー ス 以 外 に 表示 可能 な 文字 と は , 文字 コー ド が 33 一 126 ( 餅 


H21 一 和 &H7E) の 文字 で す 。 


【ISLOWER】 

文字 コー ド の デー タ が 英 小 文字 びあ る か どう か 調べ , 英 小文字 で あれ ば ー 1 を , そう で な けれ 
ば 0 を 返し ます 。 英 小文字 と は , a 一 2 の 文字 で す 。 
【ISPRINT】 

文字 コー ド の デー タ が 表示 可能 な 文字 か どう か 調べ で , そう で あれ ば ー 1 を, そう で な けれ ば 0 


を 返し ます 。 表 示 可 能 な 文字 と は , 文字 コー ド が 33 一 126 (&H21 一 &H7E) の 文字 で , スペ ー ス 
も 含ん で いま す 。 


【ISPUNCT】 

文字 コー ド の デー タ が 表示 可能 な 記号 か どう か 調べ で べ 、。 そう で あれ ば ー 1 を 。 そう で な けれ ば 0 
を 返し ます 。 表 示 可 能 な 記号 文字 と は , 文字 コー ド が 32 一 47, 58 一 64, 91 一 96, 112 一 126(&H20 一 必 
H2F、&H3A 一 &H40,、&H5B 一 &H60、&H7B 一 を H7E) の 文字 で す 。 


【ISSPACE】 


文字 ュー ド の デー タ が 空白 文字 か どう か 調べ で , そう で あれ ば ーー 1 を , そう で な けれ ば 0 を 返し 
ます 。 空白 文字 と は , 文字 コー ド が 9 一 13,。 32 ( 和 &H09 一 科 HOD, 層 H20) の 文字 で す 。 
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【ISUPPER】 
文字 コー ド の デー タ が 英 大 文字 びあ る か どう か 調べ , 英 大 文字 で あれ ば ー 1 を , そう で な けれ 
ば 0 を 返し ます 。 英 大 文字 と は , A 一 Z の 文字 で す 。 


【ISXDIGIT】 
文字 コード の デー タ が 16 進 の 文字 びあ る か どう か 調べ で , そう で あれ ば ー 1 を ,。 そう で な けれ ば 
0 を 返し ます 。16 進 の 文字 と は , 0 一 9, A 一 F, a 一 f の 文字 で す 。 


( b) 文字 検索 を する 関数 


ここ に 出 て くる 関数 は , 文字 列 中 か ら 指定 され た も の (文字 また は 文字 列 ) を 探し 出し を 
の 位置 を 返す も の で す 。 


【INSTR】 

文字 列 の 中 か ら 文 字 列 を 探し て , 何 文字 目 に ある か を int 型 で 返す 関数 で す 。 何 文字 目 以降 か ら 
探す と いう 指定 が 出来 ます (1 一 255 の 間 )。 ど ちら か の 文字 列 が null だ っ た り , 見 つか ら な か っ 
た 時 や 探し は じ め る 位置 が 0 以下 だ と , 戻り 値 は 0 に な り ま す 。 





書 。 式 r 三 instr (n 1], n2, n3) 
トーーーーーT ES 

引 数 | n 1……int 型 で , 何 女 字 目 か ら 探す か の 指定 
MO 凡 RSmeg str 型 で 、 こ の 文字 列 中 か ら 探す 

0 湯 mweine str 型 で 探し た い 目 的 の 文字 列 








戻り 値 int r 
探し 出し た 文字 の 位置 を 返し ます 





使用 例 | 10 str ast="super central processing unit 68999" 
29 int r 

39 rinstr(1,ast, "unit") 

49 。 print r 

59 rinstr(19.ast. “ce”) 

69 print r 

Tun 

26 

18 
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0k 








【STRCHR】 
文字 列 の 中 か ら 1 文字 を 探し , 最初 に 見 つけ た 位置 を 返し ます 。 先頭 を 0 と し た int 型 の 値 を 返 
し ます が , 見 つか ら な か っ た だ 時 は 一 1 を 返し ます 。 





r 三 strchr (n1, n2) 





n 1 ……str 型 で , この 文字 列 か ら 探し ます 。 
n 2 ……char 型 で , 探し た い 文 字 を 与え ます 。 








19 str st="WE need real time multi task" 
29 char a='†" 
39 int r 


49 rcstrchr(st,a ) 
59 print r 

Tun 

13 

0k 











【STRCSPN】 
文字 列 1 の 中 か ら , 文字 列 2 の どれ か 1 文字 を 最初 に 見 つけ た 位置 を 返し ます 。 戻り 値 は 先頭 
を 0 と し た int 型 の 値 を 返し ます 。 見 つか ら な か っ た 時 は , 文字 列 の 長き を 返し ます 。 





rstrcspn (nh1, n2) 





nm 1 …… str 型 
T 2 rem str 型 で , 探し た い 文字 を 並べ ます 。 
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int r 








19 str a="super personal work station" 
29 str b="abc”" 

39 int r 

49 rcstrcspn(a,b) 

5S9 print r 

run 

12 

0k 

画 














【STRSPN】 

文字 列 の 中 か ら , 指定 し た 別 の 文字 列 に な い 文 字 を 最初 に 見 つけ た 位置 を 返し ます 。 見 つか ら 
な か っ た 時 は , 最初 の 文字 列 の 長き を 返し ます 。 ま だ た , どちら か の 文字 列 が null 文字 の 時 は , 0 
を 返し ます 。 





書式 rstrspn (nh1, n2) 





引 数 n 1 …… str 型 で 、 この 文字 列 の 中 か ら 探 し ます 。 
n 2 ……… str 型 で 、 こ の 文字 列 の 中 の 文字 を 比較 し ます 。 





戻り 値 | int 型 














【STRTOK】 
文字 列 の 中 か ら 別 に 指定 する 文字 列 の うち , どれ か ひと つ を 見 つけ た 位置 まで の 文字 列 に 返し 


ます 。 





書 式 rstrtok (n 1, n2) 





引 数 n 1 …… str 型 で , この 文字 列 の 中 を 探し ます 。 
n 2…… str 型 で , 探し た い 文 字 を 並べ ます 。 








str 型 
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【STRCHR】 

文字 列 の 中 で 指定 し た 1 文字 が 、 最 初 に 見 つか っ た 位置 を 返し ます 。 先頭 は 0 で 
つか ら な か っ た 時 は , 一 1 を 返し ます 。 

HE 

還 村 5 


最後 まで 見 








rstrchr (n1. n2) 












str n 1 
char n2 キャ ラク タコ ー ド て 変換 
int r 











(c) 文字 列 を 加工 する 関数 


ここ で 紹介 する 関数 は , ある 条件 に よっ て 文字 列 を 切っ た り 貼 っ た りす る も の で す 。 文 字 列 処 
理 の メイ ン で すか ら 良 〈 理 解 し て 下さ い 。 


【LEFT$, MID$, RIGHT $ 】 

この 三 つ の 関数 は , いずれ も 文字 列 の 中 か ら 指定 され た 一 部 分 の 文字 列 を 取り 出す た め の も の 
で す 。LEFT$ は 左側 か がら, RIGHT$ は 右側 か ら 指定 され た 数 の 文字 列 を 取り 出し ます 。MID 
$ だ け , 引数 が ひと つ 多 く て , 何 文字 日 か ら 何 個 取り 出す と いう 指定 が で きる の で , 文字 列 の 中 
央 あたり か ら 取 り 出 すこ と が 可能 で す 。 











int 型 


書式 rーleft$(n1, n2) 
r=rightS(n1, n2) 
r=mid$(n1,、 n2、n3) 
隔 間 _ 
| 引 | ] sss str 型 
2 ……int 型 LEFTS は 何 文字 取り 出す か と いう 指定 
int 型 RIGHTS は 何 文字 取り 出す か と いう 指定 


MID$ は 何 文 字 目 か ら と いう 指定 
MID$ の と きだ けり 必要 。 何 文字 取り 出す か の 指定 





tr r 


Print 
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str st="friendly 0S Human 68k“" 


r=left$(st,5) 


ga 
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59 rcright$(st,9) 
59 print r 

79 r=mid$(st,19,2) 
89 print r 

run 

friend 

Human 658k 

0S 


0k 
國 








【MIRROR$ 】 
文字 列 の 並び を 反転 し て 返す 関係 で す 。 


























壮 :aN r =ーmirrorS(n) 
3 ーー 
引 数 | strn 
関数 実行 後 ち ロ n は その まま 
戻り 値 | strr 
引 数 の 文字 列 n が 反転 きれ て 返さ きれ ます 
| _- _ 
使用 例 | 19 str st="X-BASIC" 
29 str ts 
39 ts=mirror$(st) 
49 print ts 
Tun 
CISAB-X 
Ok 
画 
【STRING $ 】 


ーー っ の 文字 を 指定 し た 数 だ け 並 べた 文字 列 を 作り ます 。 長き は , 最大 255 ま で で , 0 以下 を 指定 
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し た 時 は null 文字 を 返し ます 。 





rーstring$(n1, n2) 





人 9 1 eo int 型 で 作る 文字 列 の 長き 
n 2 …… str 型 で 1 文字 を 指定 











str 型 

19 int a=5 
29 str b="@" 
39 。 str r 


49 rcstring$(a.b) 
59 printr 

Fun 

89666 

0k 

画 











【STRLEN, (LEN)】 
文字 列 の 長き を 返し ます 。null 文字 の 時 は 0 を 返し ます 。 





r 三 strlen (n) 
r 三 len (n) 


(どちら 6 で も よい ) 





str n 





int r 











【STRLWR】 
文字 変数 の 中 の 英 大 文字 を , 英 小文字 に 秦 換 し ます 。 
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| 引 数 str n 
| 戻り 値 str r 
【STRNSET】 


文字 変数 の 中 の 先頭 か ら 指定 し た 数 の 文字 を , 指定 し た 文字 に 変換 し ます 。 





書 式 rstrnset (11, n2、n3) 





引 数 | nl…… str 型 変数 
n 2 …… char 型 キャ ラク タコ ー ド て 指定 
n 3……:int 型 何 文字 変換 する か を 指定 



































【STRREV】 
文字 変数 の 並び を 逆転 し ます 。 
欄 : 紅 rstrrev (Tn) 
PO 
引 数 str n 
引数 し し て 渡し た 文字 列 n も 反転 する の で 注意 し て 下さ い 。 
入所 
戻り 値 | strr 
n が 反転 し て 返さ る れ ま す 。 
HH 
【STRSET】 
文字 変数 の 中 の 文字 を , 全て 指定 し た キャ ラク タコ ユー ド の 文字 に し ます 。 





書 式 rstrset (n1, n2) 





引 数 mn 1 …… str 型 変数 
mn 2ー…・ char 型 キャ ラク タコ ー ド で 指定 
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【STRUPR】 
文字 変数 の 中 の 英 小 文字 を , 全て 英 大 文字 に 変換 し ます 。 





r 三 strupr (n) 





str n 





str r 














計 記 | 数 値 演算 関数 


ここ に 出 て (る 関数 は , これ まで に 出 て きた も の より 牟 近 み の 深い ちの で す 。 数学 的 な 関数 の 
原点 の よう な も の で すか ら 理 解 し や すい と 思い ます 。 幾つ か の 関数 が あり ます が , 数 学 的 な 分 類 
や 使用 目的 に より 分 類 し て あり ます 。 


(a) 三角 関数 





【ATAN】 
n の 逆 正 接 ( ア ー ク タン ジェ ント ) を 計算 し ます 。 戻り 値 と し て は , 一 ヶ 2 か ら ァ グ 2 まで の 
値 を 返し ます 。 


























6 ratan (n) 
HE 
引 数 | float n 
戻り 値 | float r 
【SIN】 


n (ラジ アン ) の 正弦 (サイ ン ) を 計算 し ます 。 





書 式 r 三 sin (n) 





引 数 | floatn (ラジ アン ) 





戻り 値 float r 











114 


amuanunvnwavnmunvnuwvnvnunvmnvmvnunvvnunvnwnvnvrunvnvnvnvnunvvnunvrunvnvnunvrwnunvrunvnvnunvnvrunvrwnvvnvnvnunvnvnn 9] 本 準 関数 ww 


【COS】 
n (ラジ アン ) の 余弦 (コサイン ) を 計算 し ます 。 





書式 r 三 cos (1) 





引 数 float nm (ラジアン) 





戻り 値 float r 














【TAN】 
n (ラジ アン ) の 正 接 (タン ジェ ント ) を 計算 し ます 。 





書 式 rtan (n) 





引 数 | float n (ラジ アン ) 





戻り 値 | float r 














(b) 対数 演算 関数 
































【EXP】 
自然 対数 の 底 "e "の n 乗 を 計算 し ます 。 
書式 rexpD (1) 
| 
引 数 | floatn 
HH 
戻り 値 | floatr 
【LOG】 
n の 自然 対数 を 返し ます 。 n> 0 で な けれ ば な り ま せん 。 
書 式 rlog (n) 
引 数 | floatn (n> 0) 
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(c) 乱数 用 の 関数 


【SRAND】 
rand ( ) の 系 列 を 初期 化し ます 。 i は , 0 一 65535 の 範囲 を 取り ます 。 





r 三 srand (i) 





int 





void (戻り 値 は な い ) 











【RAND】 
0 以上 32767 以 内 の 整数 型 乱数 を 返し ます 。 





rrand ( ) 





な し 





intr (0 <r <32767) 











【RANDOMIZE】 
rnd ( ) の 乱数 系 列 を 初期 化し ます 。 





randomize (1 ) 





RS95959 乱数 の シー ド (一 32768 ミ i ミ 32767) 





void (戻り 値 は な い ) 
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【RND】 
0 以上 1 未満 の 乱数 を 返し ます 。 





書 計 葉 rーrnd ( ) 
EE 
引 数 | な し 








戻り 値 | float r(0 ミ r ミ 1) 














( d ) その 他 の 数 値 演算 関数 























【P】 
円 周 率 を 返し ます 。 
書 式 r 三 pi (Tn) 
引 数 | floatn 
nt 倍数 
戻り 値 float r 
ァ が n 倍 に な り 返 され ます 
【ABS】 


n の 絶対 値 を 返し ます 。 


書 式 rabs (n) 


引 数 | floatn 


| 戻り 値 | floatr 























【POw】 
x の y 乗 の 計算 を し ます 。x 三 0 か つ Y <0 の 場合 と , x <0 か つ Y が 整数 で な い 場合 は , エラ 


ー も な り ま す 。 
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r 三 pow (X, Y) 





float x、y た だ し x <0 で , Y は 整数 値 





float r 
rー** の 計算 結果 が 返る 











【SGN】 
n の 符号 を 調べ 正 の 数 だ っ た ら 1 を , 1 の 場合 は 0 を , 負 の 数 だ っ た ら 6ー1 を 返し ます 。 




















【SQR】 
n の 平方 根 (レー ト ) を 返し ます 。n 三 0 で な けれ ば な り ま せん 。 





r 三 sqr (1) 





float n 





float r 
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ここ で は 標準 関数 に も ステ ー ト メン ト に も な れ な か っ た 特殊 な 変数 に 付い て 解説 し ます 。 こ の 
特殊 な 変 雪 の こと を , シス テム 変数 と し いい ます 。 こ の シス テム 変数 は X68000 の メモ リ 上 で 色々 
な ハー ドウ エア の 状態 を 各部 が 処理 を する ご と に 変更 され る 変数 で .、 それ ぞ れ の 情報 が 入る メモ 
リ に 変数 名 を 割り 付け た も の で す 。 

シス テム 変数 で 読み 取れ る ハー ドウ エア の 状態 と は 次 の あの を いい ます 。 





これ ら は , X68000 の 各部 で 使用 きれ て いる LSI の 状態 が メモ リ に 書き 込ま れ て いる と 理解 す 
れ ば よい の で す 。 


(a) プロ グラ ム メ モリ の 残 量 を 知ら せる 変数 


プロ グラ ム メ モリ の 大 きき は, "BASIC.CNF”" に より 設定 され XX-BASIC が 立ち 上 が る 時 
に , その 大 きき だけ の メモ リ を 確保 し ます 。 こ の プロ グラ ム メ モリ は , プロ グラ ム モ ー ド で プロ 
グラ ム を 打ち 込ん で いっ た り , 実行 中 に 大 き な 配 列 等 を 確保 した りす る こと で プロ グラ ム メ モリ 
の 残 量 が 小さ きく な っ て いき ます 。 そ ん な 時 に この 変数 を 読む こと で , 残 り の メモ リ の 量 を 知る こと 
が 出来 ます 。 


【FREE】 








nーfree まだ は free 


書式 





19 print free 
20 end 


run 


128939・・・・・ バ ーー・ ユー ザー の 使用 状況 や メモ リ 設 定 に より 異な る 
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この 変数 は , 読み 込み 専用 で 変数 に 値 を 代入 する こと は 出来 ませ ん 。 


( b ) 現在 の 日 時 ・ 曜 日 を 知ら せる 変数 

X68000 に は , バッ テリ ー バ バックアップ 付 の 時 計 (電源 を 切っ て も 時 を 刻ん で いる ) が 内 蔵 き され 
て いま す 。 こ の デー タ を いつ で も 新しい 日 時 , 曜日 デ ゲー タ に 書き 替え て いる の が 次 の 三 つ の シス 
テム 変数 で す 。 

【DATE$ 】 











st 三 dates また は date$ 





19 print date$ 
29 end 

Tun 

87/11/97 

Ok 

画 








【DAY$】 





st 三 day$5 まだ は day$ 





19 print day$ 
29 end 

Fun 

加 

0k 

暑 











【TIME $ 】 








st 三 time$S まだ は time$ 








19 print time$ 
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2 end 
run 
14:23:16 
0k 

画 














な お , この 変数 は , 全て str 型 の 変数 で す 。 こ の 中 で , date $ 、time$ に 付い て は 文字 列 を 代入 
する こと が 出来 ます 。 代 入 き れる 文字 列 の 書式 は , 変数 や 出力 し て くる も の と 同じ に し て な けれ ば 
な り ま せん 。 この 機能 を 利用 し て , 時 刻 や 日 付 セ セッ ト す る こと が 出来 ます 。 この 機能 の 中 に day 
$ も セッ ト す る こと が 出来 な い の は , 日 付 が 決ま っ て し まえ ば 曜日 も 決ま っ て し まう た めで す 。 


(c) キー ボー ド か ら の 情報 を 知ら せる 変数 


ステ ー ト メン ト に あっ た imnput 文 と 似 て いま す が, str 型 の 変数 に 1 文字 だ け 入 力 さ れ ま す 。 ま た 
この シス テム 変数 は , 代入 形式 を た と っ て いる だ めこ の シス テム 変数 に は も うぅ 一 つの str 型 変数 を 
用 意 し な けれ ば な り ま せん 。 


【INKEY $ 】 
ee 

書 式 | st=inkey$ 
| airmgtaatfziB| 
使用 例 | 」g 








8 下 - 信光 
20 a=inkey$ 
30 print st 
49 end 














この 変数 の 代入 文 も 見 つけ る と , プロ グラ ム は 中 断 し この 変数 の 中 に キー ボー ド か ら の 文字 デ 
ー タ が 入っ て くる まで 待ち ょ すす 。 キ ー ボ ー ド が 押さ れ キ ー コ ー ド 情報 (文字 コー ド ) が 左辺 に 代 
入る きれ だ た ところで, ブロ グラ ム は 再開 され ます 。 つ まり , 上 記 の 例 で は , 変数 8 に 代入 る され た と 
ころ か ら プ ログ ラム が 再開 され ます 。 こ の シス テム 変数 で は , 1 文字 入力 の input 文 (リタ ー ン を 
押す 必要 が な い ) と し て 使用 出来 ます 。 こ の シス テム 変数 で マニ ュ ア ル に 記述 され て いな いも の 
が あり ます 。 次 の inkey$ (0) で す 。 

【INKEY$ (0 ) 】 








st 三 inkey $ (0 ) 





19 str st 
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29 while 1 
30 st=inkey$(9) 
40 print st 
59 endwhile 
69 end 
この プロ グラ ム が 実行 きれ る と , キー を 押し た 文字 が 表示 され て キー を 離す と 表示 きれ な く 


な り ま す 。 つまり, 30 行 と 40 行 を 高速 で ルー プ し て キー が 押さ きれ て いな く て も ぉ 次 の 処理 へ 移り ま 
す 。 こ の シス テム 変数 を 使 を ば . リア ル タ イ ム の キー 入力 が 出来 ます 。 例 を えば, 表示 中 に キー 入 
力 に より 表示 を 一 時 スト ッ プ させ た り , 表示 キャ ン セ モル させ だ りす る こと が 出来 ます 。 

( dg) カー ソル の 位置 を 知ら せる 変数 

ステ ー ト メン ト の 1locate 文 を 使っ て カー ソル 位置 を 指定 する こと が 出来 まし た な が. この シス テ 
ム 変 数 は 現在 どの 位置 に カー ソル が ある の か を 知る た め の 変 数 で す 。 こ の 変数 は 読み 出し 専用 で 
数 値 を 代入 し て カー ソル を 移動 する こと は 出来 ませ ん 。 カ ー ソ ル を 移動 する に は locate 文 を 使用 
すれ ば よい わけ で す 。 


【CSRLIN, POS】 





HH yーcsrlin また は csrlin 


X 三 DOS DOS 





使用 例 19 locate 19,15 

29 print "x=”:ipos 

39 print "y=”":csrlin 
49 end 














以上 が シス テム 変数 で す が , X-BASIC で は この シス テム 変数 と 同一 名 の 変数 を 使用 する こと 
が 出来 ませ ん 。 ま た , この 他 に も ステ ー ト メン ト ゃ 関数 名 と 同一 の 変数 名 を 使用 する こと も 出来 ま 
せん 。 これら を , 予約 語 と 言っ て XX-BASIC マニ ュ ア ル の 巻末 に 列記 し て あり ます の で , その ま 
ま 使 用 し な いで 下る い 。 これら は , 全く 同じ で な けれ ば 使用 する こと が 可能 で , 次 の ょ うな 工夫 
を すれ ば プロ グラ ッ 中 に 変数 と し て 使用 する こと が 出来 ます 。 








予約 語 変数 と し て 使用 可能 に な っ た も の 
ABS ABS_A 
BOX BOXM 


122 


MnvmwnvnvnvnvnvnnMnMnMNMnMmMnVMnMAMnMTMTMnMnMPMnMAMPMnMnMMAMMWMTMNMTMRMTMMnTMTMTMn 





mvwvnunvwvavnvmununvnununy うう シス テム 変数 mwww 


NEXT 半 敵 :E 和 
FR SE 世 K FSEEK 代 | 


WHILE WHIL 一 














アル ンチ 3 シン オー ジル 論理 演算 子 





論理 演算 と いう の は 複数 の 条件 式 や .、 ビ ッ ト 単 位 の 処理 を し た りす る 時 に 使用 し ます 。X-BASIC で 
は , 次 の よう な 論理 演算 の 使用 が 許さ れ て いま す 。 











1① 否 定 NOT 
駐 | NOT 双 
0 | 1 
1 0 


2 論理 積 AND 




















X ] hg 」 X AND Y 
0 | 0 | 0 
0 1 0 
1 | 0 | 0 
1 | 1 
3 論理 和 OR 
駐 | Y XORY 
0 0 0 
0 1 1 
1 0 1 
1 1 1 





4 排他 的 論理 和 XOR 











え Y X XOR Y 
0 0 0 
0 1 1 
1 0 1 
1 1 0 
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( 1 ) 画面 モー ド 


グラ フィ ッ ク 表 示 の た め に は , まず グラ フィ ッ ク 画 面 の モー ド を , 使い 方 に 合わ せ て 設定 する 
必要 が あり ます 。 こ の グラ フィ ッ ク 画 面 の モー ド を 設定 する ステ ー ト メン ト が 、「SCREEN」 で 
が 


【SCREEN】 





| 書式 | screen a, b, c,d 

sl っ 
| a …… 表 示 画 面 サ イズ 

aa 三 0 の と き 256X256 

a 三 1 の と き 512 X512 

a 三 2 の と き 768X512 








DO 実 画面 。 色 モ ー ド 及び 使用 可能 な グラ フィ ッ ク ペ ー ジ 
b= ニ 0 の と き 1024※1024 65536 色 中 16 色 ペー ジ 0 の み 
1 の と き 512X512 65536 色 中 16 色 ペー ジ 0 一 3 の 4 ページ 
b ニ 2 の と き 512X512 65536 色 中 256 色 ペー ジ 0 一 1 の 2 ページ 
b ニ 3 の と き 512X512 65536 色 ペー ジ 0 の み 





C…… ディ スプ レイ の 解像度 
c 三 0 の と き 標準 解像度 (15kHz) スー パー イン ポ ボーズ 可 能 
c ニ 1 の と き 高 解 像 度 (31kHz) スー パー イン ポー ズ 不 可 
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dd グラ フィ ッ ク 画 面 の 表示 ON/OFF 
d ニ 0 の と き グラ フィ ッ ク は 表示 る れ ま せん 。 
d ニ 1 の と き グラ フィ ッ ク 画 面 を 初期 化し 表示 ON に し ます 。 
この と き , グラ フィ ッ ク RAM 内 の デー タ は 全て 消去 きれ ます 。 








@⑯ グ ラフ ィ ッ ク ペ ー ジ 

グラ フィ ッ ク 画 面 に は ペー ジ と いう 考え ぇ 方 が あり , 例え ば , 実 画面 512X512 色 モー ド が 65536 色 
中 16 色 と し た 場合 は . ページ 0 か ら ペ ー ジ 3 まで の 四 つ の ペー ジ が 実 画面 512 X512, 65536 色 中 16 
色 ほ と いう モー ド で 使 を る こと に な り ま す 。 複数 の ペー ジ を 扱う 場合 に は , 何 ペ ー ジ 目 を 表示 ON, 
また は OFF に する か , 何 ペ ー ジ 目 に 四角 形 を 書く て か と いっ だ よう に 処理 に よっ て ペー ジ を 選択 
する 必要 が あり ます 。 こ の ペー ジ を 扱う た め の 関 数 が , vpage と apage で す 。 
【VPAGE】 

















vpage ( 1) 
int i 
eees 表示 ON 
| 
0 ※ ※ Pb ※ 
1 〇 ※ ※ ※ 
2 ※ () メ 名 
3 〇 〇 ※ 8 
4 X ※ 〇 X 
5 〇 ペ 〇 X 
6 ※ O 〇 〇 O X 
7 〇 〇 〇 3 
8 ※ ※ 補 〇 
9 〇 3 ※ 〇 
10 3 〇 3 〇 
11 〇 〇 3 〇 
12 X ペ 〇 () 
13 〇 3 3 〇 
14 ※ 〇 (9 (あり 
15 @⑳ (9) 〇 ( 























i の 値 は ,「SCREEN」 で 設定 し た 画面 モー ド に よっ て 決ま り ま す 。 
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1024※1024 (16 色 モー ド ) i=0, 1 
512 512 (16 色 モー ド ) i デ 0 一 15 
実 画面 サイ ズ 
512X512 (256 色 モー ド ) i=0 一 3 
512 X512 (65536 色 モー ド ) i 三 0, 1 
と がり ます 。 


【APAGE】 








aDage (Dag) 





int pag 








アク ティ ブ ペ ー ジ と いう の は , 実際 に 読み 書き する ペー ジ の こと を 意味 し ます 。 

第 3 一 32 図 は 画面 モー ド を 表示 画面 サイ ズ 512※512、 実 画面 サイ ズ 512 X512、65536 色 中 16 色 モ 
ー ド で , 0 一 3 ペー ジ の グラ フィ ッ ク ペ ー ジ を 使用 で きる よう に 設定 し 、 各 ペー ジ に 培う 色 の 中 
角形 を 書き vpage 関数 の i の 値 を あか える こと で , どの よう に 中 角形 が 表示 る きれ て いる か を 実験 し 
て も ら 5 うた め の プ ログ ラム で す 。 実行 きせ る と, vpage( 0 ) の 状態 か りら はじまり , 何 か キ ー を 押 
すご と に vpage 関数 の i の 値 が 変化 し て いき ます 。 





19 /* apage&vpage test 

2 int i 

39 str space 

49 screen 1,1,1,1 

59 palet(1l,hsv(9.31,31) ) 
69 palet(2,hsv(32,31,31) ) 
79 palet(3,hsv(64,31,31)) 
89 palet(4,hsv(96,31,31) ) 
99 vpage(9) 

199 apage(9) 

119 fill(9,9,69,69,1) 

129 apage(1) 
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139 fill(61,61.129,129,2) 
149 apage(2) 

159 fil1(121,121,189, 180,3) 
169 apage(3) 

179 fill(181,181,249, 249, 4) 
189 for i=9 to 15 


190 locate 39.2:print"vpage("j ロ ジウ )” 
200 vpage(i) 

210 Space=inkey$ 

220 next 

239 end 











第 3 一 32 図 apage、vpage サン プル プロ グラ ム 


10# コ メン トド 文 
20 一 30 : 変数 宮 言 
40 : 画面 モー ド を 512 x512 の 16 色 モー ド に 設定 
50 一 80 : パレ ッ ト コ ユー ド 1 一 4 に 赤 , 黄 、 緑 . シア ン の 順に モッ ト 
90 : グラ フィ ッ ク ペ ー ジ 0 一 3 を す で て 表示 OFF に する 。 
100: ア クティ ブ ペ ー ジ を ペー ジ 0 に 設定 
110: ペー ジ 0 に 赤 の 四角 形 を 描く 。 
201 アプ 少 チ ォ イブ ペー ツジ 和 を ペー ジ 1 に 設定 
130 : ペー ジ 1 に 黄 の 四角 形 を 描く 。 
140: アク ティ ブ ペ ー ジ を ペー ジ 2 に 設定 
150 : ペー ジ 2 に 緑 の 四 角形 を 描く 。 
160: アク ティ ブ ペ ー ジ を ペー ジ 3 に 設定 
170 : ペー ジ 3 に シア ン (水色 ) の 四角 形 を 描く 。 
180 : 220 行 の next 間 を 16 回 (0 一 15) ル ー プ する 。 こ の 時 , i の 値 は 1 つ ず つ 増 加 す る 。 
190 : i の 値 を 画面 に vpage (i) の 形式 で 表示 する 。 
200 : vpage 関数 で 各 グ ラフ ィ ッ ク ペ ー ジ を ON, OFF させ る 。 こ の 値 は 0 一 15 ま で 1 < つま 
つっ 増加 する 。 
210 : 何 か が キー が 押さ る れる まで 待つ 。 
220 : next 文 


信 ク リッ ピン グ 
クタ リッピ ング と いう の は , 表示 範囲 より は み 出 し た 部 分 を 取り 去る こと を いい ます 。 こ の 表示 
範囲 し いう の は , window 関数 で 指定 され た 男 囲 と な り ま す 。 
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【WwINDOw】 





書式 | winqow 1. Y1, x2、y2) 
ame 
目 絹 数 | int xl1, yl1, x2, y2 
x1…… 表 示 指 定 範 胃 の 左 x 座 標 
y1…… 表 示 指定 範囲 の 左 Y 座標 
x2…… 表 示 指定 範囲 の 右 x 座 標 
Y2…… 表 示 指定 範囲 の 右 座標 














・ 各 引数 は 画面 モー ド や 設定 され た 実 画面 サイ ズ に より 、 0 一 511 あ る い は 0 一 1023 の 値 し な り ま 
す 。 





第 3 一 33 図 は 画面 の 中 心から 半径 を 5 ずつ 増加 させ て 円 を 書く プロ グラ ム で す が , 表示 範囲 を 
window 関数 で 変 た て いま す の で , クリ ッ ピ ング と いう も の が どの よう な も の か 実際 に 確か め て 
みて 下さ い 。 





19 /* window test 

29 screen 2,9,1,1 

39 palet(1,hsv(32,31,31) ) 

49 palet(2,hsv(96,31,31) ) 

59 window(190, 199,399,399) 

69 print " window(199,199,399,399)” 
79 box(199, 199, 399, 399, 2) 

89 en() 

99 window(399, 299, 599, 590) 
199 print ” windom(399, 209,599,599〉” 
119 box(399,299, 599, 509, 2) 

129 en() 

139 window(9, 9, 767,511) 
149 print ”" windom(9,9,767,511)” 
159 box(9,9,767,511,2) 

169 en() 

179 end 
189 func en() 








128 


nunununumvnvmvnvmvnvmvrunuxenvnvnvnvnvmvnwnmusunvnvnvnvnvrvmnuwunvnvvnvnvreuwuwuwvnvnvvmvsvnnwnununvnvnvnvnvrvmununuvnve 9-3 部 関数 www 


190 
290 
210 
220 
230 





int i 

for i=l to 59 
circle(384,256, i*5, 1,9,360,256) 

next 


endfunc 








第 3 一 33 図 window サ ンプ ルプ ログ ラム 


10 : 

20 : 
30 一 40 : 
50 : 

60 : 

70 : 

80 : 
90 一 160 : 
180 : 

190 : 
200 一 220 : 


230・ 


コメ ント 文 

画面 モー ド を 768X512 の 16 色 モー ド に 設定 

2\ レ シッ トコ ー ド 1 , 2 に 黄 , 水色 を モット 

表示 範囲 の 左上 座標 を (100, 100) 右 下 座標 を (300、300) に 指定 
表示 範囲 を 画面 に 出力 

表示 範囲 を 水色 の 四角 で 描く 。 

定義 関数 em ( ) を 呼び 出し 実行 

表示 範囲 を 変 た て 50 一 80 と 同じ 処理 を 行う 。 

定義 関数 en ( ) の 定義 家 言 

変数 官 言 

座標 (384, 256) を 中 心 座標 と し , 半径 を 5 ずつ 増加 る せな が ら 円 を 描く (半径 は 5 一 250 
まで )。 

定義 関数 en ( ) の 終了 宣言 。 こ の 関数 の 呼び 出さ れ た 次 の 行 へ 戻る 。 


人 表示 画面 と 実 画面 


X68000 は 最大 1024X1024 と いう 広 さ の グラ フィ ッ ク 画 面 を 持っ て いま す が , ディ スプ レイ が 


768X512 ま 
の 画面 サイ 


で の 広 さ し か 表示 で きま せん 。 そこ で ., 表示 画面 サイ ズ と 実 画面 サイ ズ と いう , 二 つ 
ズ が 存在 し ます 。 


例え ば , screen 0 , 0・・・ と し た 場合 
表示 画面 サイ ズ は 256X256 で , 実 画面 サイ ズ は 1024※X1024 と な り ます 。 こ の 時 の 表示 画面 と 実 
画面 は , 第 3 一 34 図 の よう な 関係 に な っ て いま す 。 
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1024 | 














1024 






































第 3 一 34 図 実際 に 画面 に 表示 で きる の は 斜線 部 分 の 範囲 び …, この サイ ズ を 表示 画面 サイ ズ と いい ます 


また , 表示 画面 は 実 画面 の 中 を 1 ドット ご と に , 自由 自 在 に スク ロー ル す る こと が 出来 ます 。 ス 
クロ ー ル は 球面 スク ロー ル と いっ て , 上 下 左 右 が つなが っ た も の で home 関数 に よっ て 行わ れ ま 
纏 も 


【HOME】 





書 式 | home(pag, x, y) 





引 数 char pag 

pag…… グ ラフ ィ ッ ク ペ ー ジ 0 一 3 (画面 モー ド に より 決ま る ) 
int x,y 

*…… 表 示 画 面 の 実 画面 上 の 左上 座標 

PP03 表示 画面 の 実 画面 上 の 左上 Y 座 標 











・x, Y は 画面 モー ド に より 0-511, また は 0 一 1023 ま で の 値 
・screen を 実行 する と x,y は , 0, 0 に 設定 され る 。 
・ 第 3 -35 図 参照 
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第 3 一 35 図 home 関数 に お ける 実 画面 と 表示 画面 の 関係 


第 3 一 37 図 は , 実 画面 1024X1024 を 4 等 分 (512xX512) に し , 各 範囲 を 第 3 一 36 図 の よう に 色 分 
けし , マウ ス を 使っ て 表示 画面 を スク ロー ル さ せる プロ グラ ム で す 。「 百 開 は 一 見 に し か ず 」 
X68000 の 球面 スク ロー ル を ぜひ 味わっ て みて 下さ い 。 





(0, 0) 





(1023, 1023) 











第 3 一 36 図 実 画面 の 色分け 





19 /* home test 
29 int x,y 
39 screen 1,9, 1,1 
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49 
59 
69 
79 
89 
99 
199 
119 
120 
130 
140 
159 
169 
179 
189 
190 
200 
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Window(9, 9, 1923, 1923) 
mouse(9) 
mouse(4) 
palet(1,hsv(9, 31, 29) ) 
palet(2,hsv(32, 31, 20) ) 
palet(3,hsv(64, 31, 29) ) 
palet(4,hsv(96, 31, 29) ) 
fil1(9,9,511,511,1) 
fil1(512, 9,1023, 511,2) 
fill(9,512,511,i023, 3) 
fil1(512,512,1023, 1023, 4) 
while 1 

mSpoS(x,y) 

home(9, x,y) 

locate 9,9:print"x=Pixi ーッ y= 7jy 
endwhile 


end 








第 3 一 37 図 
10 : 
20 : 
30 : 


40: 
50 一 60 : 
70 一 100 : 
110 一 140 : 


150 
160 : 


170 
180 : 
190 : 


home サン プル プロ グラ ム 
コメ ント 文 
数 宮 言 


画面 モー ド , 表示 画面 サイ ズ 512 x512, 実 画面 サイ ズ 1024※1024., 


ド に 設定 

クリ ッ ピ ング エリ ア を 実 画面 サイ ズ に 設定 

マウ ス の 初期 化 及 び マ ウス ボタ ン の 設定 

パレ ッ ト コ ー ド 1 ユ 一 4 に , 赤 。 黄 , 緑 . シア ン (水色 ) を 設定 


色 65535 色 中 16 色 モー 


実 画面 を 4 等 分 し た サイ ズ で , 第 3 一 36 図 の よう に 色分け する (4 ヶ所 を 各色 の 四角 





形 で 塗り つぶ す )。 


・ endwhile まで の 間 を 無限 シープ する 。 


この プロ グラ ム で は マウ スカ ー ン ソン ル を 表示 し て いな い が , マウ スカ ー ソ ル の 指す 座標 


を XX, Y に 読み 込む 。 


左上 座標 X, Y の 値 を 画面 上 に 出力 する 。 
150 行 に 戻る 。 


* ま プロ グラ ム を 終了 する と き は [break] キー を 押し て 下さ い 。 
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・ 160 行 で 読み 込ん だ XX, Y の 座標 を , 表示 画面 の 実 画面 上 の 左上 の 座標 と する 。 
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(2) カラー コード 


X68000 で は 最大 65536 色 使用 する こと が で きま す 。X- BASIC で は この 色 を 0 一 65535 の 数 字 
で 表し , これ も を カラー コー ド と 呼び ます 。 カ ラー コー ド は , だ だ 単に 数 字 と 色 を 1 対 1 に 対応 き 
せ だ だ け で は な く , 色 の 並び と カラ ー コ ユー ド に は ある 法則 が あり ます 。 こ の 色 と カ ラー コー ド の 
関係 を 図解 する と, 次 の よう に な り ま す 。 

16bit の カラ ー コ ー ド は , 0 一 65535 ま で の 数 値 に な り ま す 。 


bitls 1 13 19 1 10 
































9 に /』 6 1 1 3 2 1 bit0 
員 親 愉 折 回 紀 記 回 ] 口 日 ] ] 
1 
人 | 本 | ei 輝度 
強 さ は 5bit で 32 段 階 強 る は 5bit で 32 段 階 強 る は 5bit で 32 段 階 
に 変え られ る に 変え られ る に 変え られ る 


し か し , 色 を 使う ご と に この よう な ビッ ト の 計算 を し て いた だ たら 6 大変 で す 。 メーBASIC で は , こ 
の カラ ー コ ー ド を 指定 する た め の 2 種類 の 関係 が 用 意 き る きれ て いま す 。 一 つ は 「RGB」 と いう 関数 
で , 光 の 三原 色 の 原理 で 色 を 決め る も の で す 。 

【RGB】 


書 式 cl ニニ rgb (r, g, b) 








引 数 | intr,g,b 

15 赤 成 分 の 強 き 

g…… 緑 成 分 の 強 きる 

bo 青 成分 の 強 き 

数 値 が 大 きい ほど 明る く な り ま す 。 








cl…… カ ラー コー ド (0 一 65534 の 偶数 値 ) 











光 の 三原 色 に と いう の は , 赤 , 緑 , 青 で , この 混ざり 合い に よっ て 第 3 一 38 図 の よう な 色 に な り 
ます 。 例 えば , 黄色 の カラ ー コ ユー ド を 求め た い 場 合 は , 青 成分 も を 0 に し て 赤 と 緑 の 成分 の 強 る を 
同じ 値 に し ます 。 こ の 値 を 大 きく すれ ば 明る 〈 く , 小さ くす れ ば 暗い 黄色 に な り ま す 。 ま だ, この 
関数 で は 輝度 成分 は 0 と な っ て いま す の で , 最も 明る い 純 粋 な 黄色 の カラ ー コ ユ コード は 次 の よう に 
求め る こと が で きま す 。 

cl= ニ rgb (31, 31, 0) 十 1 

また , 緑 が が っ た 黄色 で し た ら , その 度合 い に 応 じ て 緑 成分 を 多く する か , 赤 成 分 や 少な くす 
れ ば よい の で す 。 こ の よう に 「RGB」 関数 は , 絵の具 を 混ぜ 合わ せる よう な 感覚 で , 色 を 求め る 
こと が で きま す 。 第 3 一 39 図 は , 赤 、 緑 , 青 成分 の 強 る と 輝度 情報 (0 また は 1) を や キーボード 
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に ・ 


か ら 入 力 す る と,「RGB」 関 数 を 使っ て カラ ー コ ユー ド を 求め 、 その 人 色 で 四角 形 を 描き ます 。 こ の プ 
ログ ラム を 実行 し て , どの 成分 と どの 成分 を 混ぜ る と どの よう な 色 に な る か を 実験 し て みて 下さ 


&Y。 


























第 3 一 38 図 光 の 三原 色 





19 /* rgb test 

29 screen 1,3,1,1 

39 int red,green,blue,kido,cl 

49 input" 赤 成分 の 強 さ (0 一 31 ) "jred 
59 input" 緑 成分 の 強 さ (0 一 3 1 ) ”":green 
69 input" 青 成分 の 強 さ (0 一 31 ) ”:blue 
79 input” 輝 度 (0 一 1 ) "jkido 

89 clsrgb(red,green,blue)+kido 

99 print "Color code = "jcl 

199 fill(259, 9, 599, 259, cl) 


119 end 











第 3 一 39 図 rgb サン プル プロ グラ ム 
MOE メ ジグ ト 廊 
20 : 画面 モー ド を 512X512 ド ッ ト の 65536 色 モー ド に 設定 
30 : 変数 の 宮 言 
40 一 60 : 各 成 分 の 強 る も を も キーボード か ら 変 数 に 代入 する 。 
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70 : 輝度 情報 を キー ボー ド か ら 変 数 に 代入 する 。 
80 : RGB 関数 を 使っ て . カラ ー コ ユー ド を 求め る 。 
90 : 求め た カラ ー コ ー ド を 画面 に 出力 する 。 
100: カラ ー コ ー ド に よっ て 表 る れる 色 で , 四角 形 を 塗り つぶ す 。 
二 つ め の 関数 は 「HSV」 で す 。 こ れ は , 美術 の 授業 等 で 聞い た こと が ある と 思い ます が 「 色 
相 」, 「 飽 和 度 」、「 明 る る 」 と いう 要素 か ら カ ラー コー ド を 求め る 関数 で す 。 


【HSV】 





書 式 | cl= ニ hsv (hu, sa, va) 








引 数 | int hu, sa, va 





Msos 色相 (0 一 191) 
に ビ じ CMA 飽和 度 (0 一 31) 
va…… 明 る る (0 一 31) 
戻り 値 int cl 
Ge カラ ー コ ユー ド (0 一 65535 の 偶数 値 ) 











色相 と いう の は , 0 一 191 ま で の 数 字 を 第 3 一 40 図 の よう な 色 の 配列 に 割り 当て た も の で す 。 
例え ば , 色相 で 32 と いう と 完全 な 黄色 で す が , 63 と な る と 黄色 の 中 で , 最も 緑 に 近い 黄色 に な 
り ま す 。 同様 に , 191 は マゼンダ の 中 で 最も 赤 に 近い も の と な り ま す 。 


ーー 




















第 3 一 40 図 色相 
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飽和 度 と いう の は , 原色 の 純度 を 表し ます 。 飽和 度 が 0 な ら ば , 色相 で 選ん だ 色 は 何 も 含 まれ 
て いな いこ と に な り , 31 な ら ば 色相 で 選ん だ 色 (原色 ) と な り ま す 。 従って, 飽和 度 の 数 値 が 多 
けれ ば 多い ほど 原色 に 近づき , 少な けれ ば 少な い ほ ど 白 っ ぽい 色 に な り ま す 。 こ の こと か ら , 白 
系 統 の 色 ( 色 , グレ ー, 黒 ) 等 の 場合 は 色相 は 関係 な く , 飽和 度 を 0 と し て 次 に 説明 する 明る さる 
の み を か えて 作る こと が で きま す 。 

明る き は , 同じ 色 の 中 で も 暗い 色 と 明 る い 色 が あり ます の で , その 度合 い を 決め る も の で す 。 
数 値 を 多く すれ ば 明る く 〈, 少な くす れ ば 暗く な り ま す 。 

また , この 関数 に よっ て 求め られ る カラ ー コ ー ド に は , 輝度 情報 は 含ま れ て いな い の で , 求め 
た だ カラー コー ド に "1 "を プラ ス す る か , し な いか で コン トロ ー ル し て 下さ きい 。 

この よう に 「HSV」 関数 は , カラ ー コ ー ド を 求め る 場合 きわ め て 感覚 的 に 色 を 選択 する こと が 
で きま す 。 第 3 一 41 図 は , 色相 , 飽和 度 。 明 る る の 三 つ も を キーボード か ら 入 力 す る と , hsv 関数 を 
使っ て カラ ー コ ユー ド を 求め , その 色 で 四角 形 を 描く プロ グラ ム で す 。 





19 /* hsv test 

29 int hu,sa,va,cl 

39 screen 1,3,1,1 

49 input" 色 相 (0 一 191) ”jhu 
59 input” 飽 和 度 (0 一 31 ) "jsa 
69 input" 明 る さ (0 一 31 ) "jva 


79 cl=hsv(hu, sa, Va ) 


89 print "Color code = “jcl 
99 fil1l(259, 9, 5099, 259,cl) 
199 end 











第 3 一 41 図 hsv サ ンプ ルプ ログ ラム 
10 : コメ ント 文 
20 : 変数 宣言 
30 : 画面 モー ド を 512※512 ド ッ ト の 65536 色 モー ド に する 。 

40 一 60 : 各 要 素 の 数 値 を キー ボー ド か ら 変 数 に 代入 する 。 

70 : hsy 関数 を 使っ て カラ ー コ ー ド を 求め る 。 
80 : 求め た カラ ー コ ユー ド を 画面 に 出力 する 。 
90 : 求め た カラ ー コ ユー ド に よっ て 表 る れる 色 で , 四角 形 を 塗り つぶ す 。 


( 3 ) パレ ッ ト コ ー ド 
X-BASIC で の 色 の 使用 の つい て は , 前 述 の よう に 65536 色 使え を る の で す が , 画面 モー ド に よっ 
て 65536 色 中 の 16 色 と か , 65536 色 中 の 256 色 と いう 制限 が あり ます 。 この 考え 方 は ユー ザー の 好き 
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な 16 色 、 ま た は 256 色 だ け 取 り 出 し て 使う と いう も の で , 16 色 モー ド の 時 は 16 個 の 絵の具 の 入れ 物 
が , 256 色 モー ド の 時 は 256 個 の 絵の具 の 入れ 物 が 用 意 き され , それ ぞ れ 0 一 15, 0 一 255 の 番号 が 付 
けら れ て いま す 。 こ れ を パレ ッ ト コ ユー ド と いい ます 。X68000 で は , 色 を すべ て この パレ ッ ト コ ユー 
ド で 表現 し ます 。 従 っ て , 65536 色 モー ド の 時 に は , パパ レッ トコ ユー ド は 0 一 65535 に な り ま す 。 こ 
の パレ ッ ト コ ユー ド に カラ ー コ ー ド を 割り 当て る 命令 が ,「PALET」 関 数 で す 。 


【PALET】 


ーー 


書 式 | palet(p, c) 
Pa 
引 数 | intp,c 

Mkxwsses パレット コー ド 0 一 255 
c…… カ ラー ユー ド 0 一 65535 




















例え を ば, パパ レッ トコ ユー ド 0 を 赤色 に し た い 場 合 

palet (0, hsv (0, 31, 31) ) 
と すれ ば 良い わけ で す 。 第 3 一 42 図 は , パレ ッ ト コ ー ド 1 に 赤 , 2 に 黄 , 3 に 緑 , 4 に シア ン , 
5 に 青 . 6 に マゼンダ (hsv の 色相 の 順 ) に 設定 し , 四角 形 を 描き 何 か キ ー を 押し た 明 間 に パレ ッ 
ト ュ ー ド の 設定 を 最初 と 送 に する プロ グラ ム で す 。 





19 /* palet test 

29 int aka,ki,midori,shian,ao,mazenda,1 
39 str space 

49 screen 1,2,1,1 

59 aka=hsv(9,31,31) 

69 ki=hsv(32,31,31) 

79 midori=hsv(54.31,31) 
89 shian=hsv(96, 31,31) 

99 ao=hsv(128,31, 31) 

199 mazenda=hsv(169, 31, 31 ) 
119 palet(1,aka) 

129 palet(2,ki) 

139 palet(3,midori) 

149 palet(4,shian) 

159 palet(5,ao) 








137 


www 第 3 章 標準 関数 と 外部 関数 wwwwwwwwewanemununenennnununununununununununununununununununanenenunwnwnynvnvnvnvnvynvnvnvnvnvnvnvnvnvn 


169 palet(6,mazenda) 

179 for i=9 to 5 

189 fill(i*80,0,i*89+80, 109, i+1) 
199 next 

209 space=inkey$() 

219 palet(1,mazenda) 

229 palet(2,ao) 

239 palet(3,shian) 


249 palet(4,midori) 
259 palet(5,ki) 

269 palet(6,aka ) 
279 end 











第 3 一 42 図 palet サ ンプ ルプ ログ ラム 


06 座 選 迷 政 補 
20 一 30 : 変数 宣言 
40 : 画面 モー ド を 512X512 ド ッ ト , 256 色 モー ド に 設定 する 。 
50 一 100 : hsv 関数 を や 使い 各色 の カラ ー コ ー ド を セッ ト す る 。 
110 一 160 : パレ ッ ト コ ー ド 1 一 6 に 各色 の カラ ー コ ー ド を セッ ト す る 。 
170 一 190 : 画面 左 か が ら パ レッ トコ ー ド 1 一 6 に 対す る 色 で , 四角 形 を 六 つ 描く 。 
200 : 何 か が キー が 押さ れる まで 待ち も 、 キー が 押さ きれ た ら 以 下 の プ ログ ラム を 実行 する 。 
210 一 260: パ レッ トコ ー ド 1 一 6 に , 110 一 160 行 で 設定 し た 逆 の 順 で カラ ー コ ー ド を セッ ト す 
る 。 
この プロ グラ ム で 注目 し て いた だ きだ た い の が , 四角 形 を 画面 に 描く と ころ は 1 回 し か な く 〈, 何 
か キー を 押し た 時 に は 200 行 以下 で 現在 描 わ れ て いる 四角 形 の 色 を palet 関数 で 変え てい る だ け 
と に ゆめ と と で あ 。 
ここ で も う 一 つ , パレ ッ ト コ ユー ド に 関係 する 関数 を 説明 し て お きま す 。 それ は , 「POINT」 関 
数 で す 。 こ れ は グラ フィ ッ ク 画 面 上 の パレ ッ ト コ ー ド を 求め る 関数 で す 。 


【POINT】 








書式 Da 三 point (x, Y ) 





旧 引数 | int x, y 
Oddfs グラ フィ ッ ク 画 面 の x 座 標 ~ window 関数 で . 
Y…… グラ フィ ッ ク 画 面 の Y 座 標 指定 され た 範囲 の み 
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戻り 値 


int pa 
Da…… パパ レン レット コー ド (0 一 65535) 





第 3 一 43 図 は , マウ ス を 左 ク リッ ク し た 時 の 座標 の パレ ッ ト コ ユー ド を 求め る プロ グラ ム で す 。 
入力 する 時 は , 第 3 一 42 図 の 200 行 か ら を 変更 し て , 入力 し て 下 き い 。 終了 する 時 は 右 ク リッ ク し 


ま おる 





200 
210 
220 
239 
240 
250 
260 
270 
280 
299 
390 
310 
320 
339 
349 
359 
360 





/* point test 
int mmX,my,X,y,bl,br,pa 
mouse(9) 
mouse(1) 
mouse(4) 
mhile br=9 
msSStat(mx,my,bl,br) 
if bl=-1 then pal() 
endwhile 
mouse(9) 
end 
func pal() 
mSpOoS(x,y) 
pa=point(x,y) 
locate 9,8 


print" 座 標 "jxi ア アック の パレ ッ ト コ ー ド は 、”"jpa 


endfunc 








第 3 一 43 図 paint サ ンプ ルプ ログ ラム 


10 ミ コメ ジ ド トト 基 
20 一 30 : 変数 宣言 
40 : 画面 モー ド を 512X512 ド ッ ト , 256 色 モー ド に 設定 する 。 

50 一 100 : hsv 関数 を 使い 各色 の カラ ー コ ー ド を 求め 変数 に 代入 する 。 
110 一 160 : パレ ッ ト コ ー ド 1 一 6 に 各色 の カラ ー コ ー ド を セッ ト す る 。 
170 一 190 : 画面 左 か がら パレ ッ ト コ ー ド 1 一 6 に 対す る 色 で , 四角 形 を 六 つ 描く 。 

200 : コメ ント 文 


210 : 変数 宜 言 
220 : マウ ス の 初期 化 
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230 : マウ スカ ー ソ ル の 表示 
240 ・ ソ フト キー ボー ド の 表示 
250 : マウ ス の 右 ボ タン が 押さ きれ る まで , 280 行 の endwhile 間 を ルー プ 
260 : マウ ス の ボタ ン が 押さ きれ た か を 見 る 。 
270 : も し 左 ボ タン が 押 き れ て いた ら , 定義 関数 pal ( ) に 行 〈。 
280 : while の 行 (250 行 ) に 戻る 。 
290 : 右 ボ タン が 押さ れる と , while 一 endwhile の ルー プ を 抜け , この 行 に き て マウ ス の 初 
期 化 を 行う 。 
300 : プロ グラ ム の 終了 
310 : 定義 関数 pal ( ) の 定義 宣言 
320: マ ウス カー ソル の ある 座標 を , 変数 X, Y に 読み 込む 。 
330 : 座標 X,。 Y の ドッ ト の パレ ッ ト コ ー ド を 求め , pa に 代入 する 。 
340 一 350 : p a の 値 を 画面 に 出力 す る 。 
360 : 定義 関数 終了 宣言 。 こ の 関数 が 呼び 出さ れ た 行 の 次 の 行 (280 行 ) に 戻る 。 
( 4 ) 描画 
この 項 か ら は , 実際 に グラ フィ ッ ク 画 面 に 描画 を 行う 関数 群 を 説明 し て いき ます 。 
< 点 の 描画 > 


グラ フィ ッ ク 画 面 に 点 (ドッ ト ) を 表示 する 関数 が 「PSET」 関 数 で す 。 





DSet (x, Y, Da) 











int x,、 y, Da 

eccon 表示 する ドッ ト の 座標 ー32768 一 32767 ま で 
Yy…… 表示 する ドッ ト の y 護 標 ー32768 一 32767 ま で 
クリ ッ ピ ング エリ ア は , window 関数 で 指定 され た 範囲 
pa…… パ レッ トコ ー ド 画面 モー ド に より 0-65535 








第 3 一 44 図 は, マウ ス を 左 ク リッ ク し た 時 の マウ スカ ー ソ ツル が 指す 座標 の ドッ ト を 緑色 で 表示 
する プロ グラ ム で す 。 ゆ っ くり 左 ド ラッ グ ( 左 ク リッ ク し た まま で マウ ス を 動か す ) し て 見 て 下 


きい 。 





19 /* pset test 
20 int x,y,mmx, 陳 y,br,bl,cl 
39 screen 1,2, 1,1 


140 


Annvmynumanunamvmvnvmenwmumvmvmvmenumemumvnvmvnvmemnnvnvwvmvamnvnvnvnvnvmmnvnvnvnemumnnvnvnvnvwunsumvnvmvnvmumunues 3-3 部 関数 www 


40 
59 
69 
79 
89 
99 
100 
110 
120 
139 
149 
159 
169 
179 
189 





cl=hsv(64, 31,31) 
palet(1,cl) 
mouse(9) 
mouse(1) 
mouse(4) 
while br=9 
msstat(mx,my,bl,br) 
if bl=-1 then psetting() 
endwhile 
mouse(9) 
end 
func psetting() 
mmSPOS(xX,y) 
pset(x,y,1) 


endfunc 








第 3 一 44 図 


10 : 
20・ 
30 : 
40: 
50: 
60 一 140 : 


150 : 
160 : 
: 座標 々 。 Y に パレ ッ ト コ ー ド 1 の ドッ ト を 表示 する 。 
定義 関数 終了 宣言 。 こ の 関数 が 呼び 出さ れ た 次 の 行 (120 行 ) に 戻る 。 


170 


180 : 


pset サン プル プロ グラ ム 


ラメ ジジ ド 交 

変数 家 言 

画面 モー ド を 512※512 ド ッ ト の 256 色 モー ド に 設定 

hsv 関数 で 緑色 の カラ ー コ ー ド を 求め , 変数 に 代入 

パレ ッ ト コ ー ド 1 に 先程 の カラ ー コ ー ド を 求め , 変数 に 代入 


第 3 一 43 図 の 220 行 一 300 行 まで と 同じ 。 た だ し , 左 ク リッ ク ON の 時 に 呼び 出す 定義 


関数 は "psetting ( ) "で す 。 
定義 関数 psetting ( ) の 定義 宣言 
マウ スカ ー ソ ツル の ある 座標 や を *, Y に 読み 込む 。 


< 線 の 描画 > 


グ ゲ ジ ズ ォ イ 
【LINE】 


ッ ク 画 面 に 直線 を 引く 関数 が 「LINE」 関 数 で す 。 





| 書 式 line (x1, yl1, x2, y2, ls ) 





| 引数 | int x1, y1, x2, y2, pa, 1s 
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6 eee 始点 の x 座標 

Y 1 …… 始点 の Y 座標 

EDEeaasi 終点 の x 座 標 

Y 2…… 終 点 の Y 座標 

0 ッ パ レット コ ー ド ( 線 の 色 ) 
8Ksassss ライ ンス タイ ル 











・x1, y1、 x2, y2 は , 一 32768 一 32767 ま で の 値 
・ ク リッ ピン グ エ リ ア は window 関数 で 指定 され た 範囲 
・Pa は 画面 モー ド に より 0 一 65535 
・ ラ イン スタ イル は 0 一 65535 (&H0000 一 和 HFFFF) 
ライ ンス タイ ル と いう の は , 点線 や 破線 な ど を 16 ビ ッ ト の ビッ トバ パタ ー ン で 表し た も の で , 直 
線 な ら ば , 
上 ルポ 1 上 jjT す サ 1WU1HT 1111 
F F F F 
この パタ ー ン の 繰り 返し な の で , ライ ンス タイ ル は &HFFFF, 点線 な ら ば , 
1100 1100 1100 1100 
【 軸 C の C 
な の で , &HCCCC と すれ ば よい わけ で す 。 以下 に , 主 な ライ ンス タイ ル の パタ ー ン を 示し ます の 
で 参考 に し て 下る い 。 


点線 を HFF00, 科 HCCCC, 交 HAAA 一 一 一 ーーー 一 
一 点 鎖線 &HFFCC, 層 HE4E4 。 0 一 ・ー・ー・ー 
二 点 鎖線 &HEFF24 ニ ぶ を ぁ る ニ 


ライ ンス タイ ル を 省略 し た 場合 は 、 実 線 (&HFFFF) と な り ま す 。 

第 3 一 45 図 は , 原点 (画面 上 の 左上 ) か ら マ ウス を 左 ク リッ ク し た と ころ の 座標 まで , 指定 の 
ライ ンス タイ ル で 黄色 の 線 を 引く プロ グラ ム で す 。 ド ラッ グ す る と お も し ろ い と 思い ます 。 実行 
する と ライ ンス タイ ル を 聞い て くる の で ,&H 〇 O 〇 〇 〇 の 形 で 入力 し て 下さい 。 右 クリ ッ ク す る 
と 終了 し ます 。 





19 /* line test 

29 int cl,ls,mx,my,bl,br,x,y 

39 screen 1,2,1,1 

49 cl=hsv(32,31,31) 

59 palet(1,c1l) 

69 input ア ツラ イン スタ イル を 入力 し て 下さ い 。",ls 
79 mouse(9) 
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89 mouse(1) 

99 mouse(4) 

199 mhile br=9 

119 msstat(mx,my,bl,br) 
129 if bl=-1 then lin() 
139 endwhile 

149 mouse(9) 

159 end 

169 func lin() 

179 mSpoS(x,y) 

189 line(9,9,x,y,1,1ls) 
199 endfunc 


ロ 


第 3 一 45 図 line サン プル プロ グラ ム 











10: コメ ント 文 

20 : 変数 宣言 

30 : 画面 モー ド を , 512X512 ド ッ ト の 256 色 モー ド に 設定 

40 : hsv 関数 で 黄色 の カラ ー コ ー ド を 求め , 変数 に 代入 する 。 

50 : パレ ッ ト コ ー ド に 先程 の カラ ー コ ー ド を セッ ト す る 。 

60: ラ イン スタ イル を キー ボー ド か ら 入 力 し , 変数 に 代入 する 。 

70 一 150 : 第 3 一 43 図 の 220 行 一 300 行 と 同じ 。 た だ し , 左 ク リッ ク し た 時 に 呼び 出 き れる 関数 

は ln ( )- 

160 : 定義 関数 in ( ) の 定義 家 言 

170 : マ ウス カー ソル の ある 座標 を や, x2、y2 に 読み 込む 。 

180 : ライ ン の 始点 座標 (0 0 ) か ら , 終点 座標 (x1. y1) (マウ スカ ー ソ ツル の 座標 ) ま 
で , 先程 入力 し た ライ ンス タイ ル で 黄色 の 線 を 引く 。 


190 : 定義 関数 終了 宮 言 。 こ の 関数 が 呼び 出さ れ た 次 の 行 (130 行 ) に 戻る 
< 四角 形 の 描画 > 


四角 形 に 関す る 関数 は 二 つ あ り , 一 つ は , 「BOX」,、 も う 一 つが 「FILL」 で す 。 前 者 は 線 に よっ 
て 四角 形 を 描く も の で , 後者 は 中 を 塗り つぶ し た 四角 形 を 描き ます 。 


【BOx】 





BOX (x1, yl1, x2, y2, pa, ls) 





還 








| 引 数 | int x]1。y1。 x2,。 y2, pa, 1s 
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] wev9 始点 X 座 標 

Y 2 …… 始点 Y 座 標 

芝生 mer。 終点 X 座 標 

Y 2 …… 終点 y 座 標 

sysee パパ レッ トコ ユー ド ( 線 の 色 ) 
1 S …… ライ ンス タイ ル 














・x1、 y1, x2。 y2 は 一 32768 一 32767 ま で の 値 

・ ク リッ ピン グ エ リ ア は window 関数 で , 指定 され た 範囲 

・pa は 画面 モー ド に より 0 一 65535 

・ ラ イン スタ イル は 0 一 65535 (&H0000 一 &HFFFF) 

第 3 一 46 図 は , 原点 (画面 上 の 左上 ) か ら マ ウス を 左 ク リッ ク し た と ころ の 座標 を 終点 と し た 
シア ン (水色 ) の 四角 形 を , 指定 きれ た ライ ンス タイ ル で 描く も の で す 。 





19 /* box test 

20 int cl,ls,mx,my,bl,br,x,y 
39 screen 1,2,1,1 

49 cl=hsv(96,31,31) 

59 palet(1,cl) 

69 input ツ ライ ンス タイ ル を 入力 し て 下さ い 。”,ls 
79 mouse(9) 

89 mouse(1) 

99 mouse(4) 

199 while br=9 

110 msstat(mx,my,bl,br) 
129 if bl=-1 then lin() 
139 endwhile 

149 mouse(9) 


159 end 

169 func lin() 

179 mspoSs(x,y) 

189 box(9,9,x,y,1,1s) 
199 endfunc 











第 3 一 46 図 box サン プル プロ グラ ム 
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この プロ グラ ム は , 第 3 一 44 図 と ほとん ど 同 じ に です 。 と どこが 違う か は , 自分 で 探し て みて 下 き 
い 。 決 は , 指定 の 色 で 塗り つぶ し た 四角 形 を 描く 「FILL」 関 数 で す 。 
【FILL】 





書式 fill (x1, y1, x2, y2, Da) 





引 数 | int x1, yl, x2,、y2, pa 

* 1…… 始 点 X 座 標 

Y 2…… 始点 Y 座 標 

1 終点 X 座 標 

Y 2 …… 終点 Y 座 標 

AESRs パパ レッ トコ ー ド (塗り つぶ す 色 ) 














・x1, yl1, x2,y2 は 一 32768 一 32767 ま で の 値 

・ ク リッ ピン グ エ リ ア は window 関数 で , 指定 され た 男 囲 

・pa は 画面 モー ド に より 0 一 65535 

第 3 一 47 図 は , マウ ス を 左 ク リッ ク し た 時 の マウ スカ ー ソ ル の 座標 を 始点 と し , 縦 20 ド ッ ト , 
横 20 ド ッ ト の 塗り つぶ し た 四角 形 を 描く (プログ ラム で す 。 な お , 卒 り つぶ し の 色 は , hsv 関数 の 飽 
和 度 を だ ん だ ん 増加 させ る こと に よっ て , 変化 きせ て いま す 。 





19 /* fill test 

20 jint cl,mx,my,bl,br,X,y 
39 jint 1i,j 

49 screen 1。1 

59 mouse(9) 

69 mouse(1) 


70 mouse(4) 

89 while br=9 

99 msStat(mx,my,bl,br) 
199 if bl=-1 then fil() 
119 endwhile 

129 mouse(9) 


139 end 
149 func fil() 
160 1i=i+1 
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170 if i>31 then i=1 

175 cl=hsv(9,i,31) 

189 palet(i,cl) 

190 mSpoS(x,y) 

209 fill(x,y, x+20,y+20, 1) 
219 for j=9 to 199 

220 next 

230 endfunc 











第 3 一 47 図 fl サン プル プロ グラ ム 


10 : コメ ント 文 
20 : 変数 宣言 
30 : 画面 モー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定 
40 一 120 : 第 3 一 43 図 の 220 行 一 300 行 と 同じ 。 た だ し , 左 ク リッ ク し た 時 に 呼び 出さ れる 関数 
は , fillset ( ) 
130 : 定義 関数 の fillset ( ) の 定義 家 言 
140 : 変数 pa を 一 つ 増 加 さ る せる (この プロ グラ ム で は , 変数 pa を パレ ッ ト コ ユー ド の 指定 , 
及び 飽和 度 の 値 と し て 使用 し て いる )。 
150: も し pa が 31 を 越え る と エラ ー と な る の で (飽和 度 の 設定 範囲 は 0 一 31) 31 を 越え 
だ ら pa 三 1 と する 。 
160 : hsy 関数 で カラ ー コ ユー ド を 求め る 。 
170 : 求め た カラ ー コ ー ド を パレ ッ ト コ ー ド pa に モッ ト す る 。 
180: マ ウス カー ソル の 座標 を x1. y1 に 読み 込む 。 こ れ が 始点 座標 と な る 。 
190 一 200 : x1, y1 の 値 に 20 ず つ プ ラス し て , x2,y2 に 代入 する 。 こ れ が 終了 座標 し な る 。 
210: パレ ッ ト コ ー ド pa て 塗り つぶ し た 四角 形 を 描く 。 
220 一 230 : 次 の 処理 の た め の 時 間 つ ぶし ( 空 ル ー プ )。 
240 : 定義 関数 終了 宮 言 。 こ の 関数 が 呼び 出さ れ た 次 の 行 (100 行 ) に 戻る 。 





< 円 の 描画 > 

グラ フィ ッ ク 画 面 に 円 を 描く 関数 が 「CIRCLE」 関 数 で す 。 ! 
【CIRCLE】 
| 書 式 circle (Xx, Y。 r, pa, S,。 e, hy) 








引 数 | int x, yY,、r, pa,s, e, hv 
*…… 円 の 中 心 の x 座 標 
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Yy …… 円 の 中 心 の 座標 
r…… 円 の 半径 

PD a… パ レッ ト ュ コード (円 の 色 ) 
S …… 開 始 角度 

に 終了 角度 

hY… 偏 平 率 











・ ぶ X, Y は 一 32768 一 32767 ま で の 範囲 

・r は 0 一 32767 ま で の 値 

・ ク リッ ピン グ エ リ ア は window 関数 で 指定 され た 男 囲 

・pa は 画面 モー ド に より 0 一 65535 ま で 

・S, e は 360′ 一 360′ の 値 

・hv は 0 一 32767 

開始 角度 s と 終了 角度 e と いう の は , 第 3 一 48 図 の よう な 関係 に な っ て いま す 。 





90 


180 











270' 











第 3 一 48 図 開始 角度 と 終了 角度 


従っ て , 円 を 描く (た め に は Ssー0, e 三 360 と すれ ば よい わけ で す 。 ま た だ, S と e の 値 に 一 1” 一 
ー 360′ の 値 を 使用 す る と , 図 の 円 の 中 心 0 か ら A と B を 線 で 結ん だ 扇形 を 描く こと が で きま す 。 

偏平 率 hy は 256 よ り 小 さけ れ ば 横長 の 棒 円 有形 し な り , 256 よ り 大 き けれ ば 縦長 の 椿 円 形 と な り 5 
ます 。 正 円 と する 場合 は , hv 三 256 と し ます , し か し , ディ スプ レイ の 関係 上 , 真 円 に は な り ま せ 
ie 

第 3 一 49 図 は , circle 関数 の 各 パ ラメ ー タ を キー ボー ド か ら 入 力 す る と, パラ メー タ と どおり の 円 
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( 細 , 扇形 ) を 描き , 


最後 に 入力 し た パラ メー タ を circle 関数 の 書式 で 出力 する も の で す 。 色 は 


100 行 で 黄色 に セ モット し て あり ます 。 いろいろ な 円 を 描い て みて , 使い 方 を 覚え て 下さ きい 。 





149 end 


19 /* circle test 

29 int x,y,r,pa,S,e,hv,cl 
39 screen 1,2,1,1 

49 input" 中 心 X 座 標 ":x 
59 input" 中 心 Y 座 標 ":y 
69 input" 半 径 r 0 
79 input” 開 始 角度 s”:s 
89 input" 終 了 角 度 e "je 
99 input” 偏 平 率 hv”:jhv 
199 cl=hsv(32,31,31) 

119 palet(1,cl) 

129 circle(x,y,r,1,s,e,hv) 


SW print"eirele( イ 2 アジ ラ ya て Tpa。 "as ジマ 75 アア 8ihvi イマ) アツ 


ダー が < ジー ジ 





第 3 一 49 図 circle サン プル プロ グラ ム 








39 screen 2,9,1,1 








第 3 一 50 図 変更 部 分 


10: コメ ント 文 


20 : 変数 宣言 


30 : 画面 モー ド を 512 X512 ド ッ ト の 256 色 モー ド に 設定 
40 一 90 : 各 パ ラメ ー タ を キー ボー ド か ら 入 力 し , 各 変 数 に 代入 する 。 
100 : hsy 関数 で 黄色 の カラ ー コ ユー ド を セット する 。 
110 : パレ ッ ト コ ー ド 1 に 先程 の カラ ー コ ー ド を セット する 。 
120 : 各 パ ラメ ー タ どおり の 黄色 の 円 を 描く 。 
130 : circle 関数 の 書式 で 画面 に 出力 する 。 この 時 , マレット ユー ド の 部 分 は pa と し て 出力 


する 。 


また だ, 30 行 を 第 3 一 50 図 の よう に 変更 すれ ば , 768X512 ド ッ ト の 時 の 円 の 描写 が で きま す 。 こ 
れ に より , 512X512 の 時 と , 768X512 の 時 の 円 の 感じ そつ か ん で 下 き い 。 
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く ペ イン ト > 


四角 形 を 塗り つぶ す 関 数 は fill 関数 で し た が , circle 関数 で 描い た 円 や , line 関数 を 使っ て 描い 
た 三角 形 な ど を 塗り つぶ す 時 に 使用 する の が 「PAINT」 関 数 で す 。 


【PAINT】 





書 式 | paint (x、 Y, pa) 





引 数 int x、Y, pa 

る OTD 塗り つぶ し た い 領 域内 の 任意 の 点 の x 座 標 
Y…… 塗り つぶ し た い 領 域内 の 任意 の 点 の Y 座 標 
D a… パ レッ トコ ー ド (塗り つぶ す 色 ) 














・x, Y は 一 32768 一 32767 ま で の 値 

・pa は 画面 モー ド に より 、 0 一 65535 ま で 

領域 し いう の は , ある 色 で 囲ま れ た 場所 で , その 中 の 点 (どこ で も よい ) の 座標 や 与え て や れ 
ば , パレ ッ ト コ ー ド で 指定 し た 色 で 塗り つぶ し て くれ ます 。 

第 3 一 51 図 は , 実行 きせ る と いろ いろ な パタ ー ン の 図形 が あら われ る の で , 塗り つぶ し た い 領 
域 の 中 に マウ スカ ー ソ ル を も っ て いき , 左 ク リッ ク す る こと で 青色 に 塗り つぶ し ます 。 こ の プロ 
グラ ム で , 領域 と いう 意味 を 確認 し て みて 下さ い 。 





19 /* paint test 

20 int cl,ls,mx,my,bl,br,x,y 

39 screen 1,2,1,1 

49 palet(1l,hsv(9,31, 31) ) 

59 palet(2,hsv(128,31,31) ) 

69 palet(3,hsv(64,31, 31) ) 

79 circle(59, 109, 39, 1,9,369, 256) 
89 circle(159, 190,39, 1,9,359,256) 
99 box(29, 209, 199, 399, 1) 
199 box(320, 299, 499, 309, 2) 
119 fill(189, 299,289, 399, 1) 


129 fil1l(320, 209, 379, 399, 1 ) 
139 fil1(371,209, 429,309,3) 
149 mouse(9) 
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189 
190 


240 
259 





159 mouse(1) 
169 mouse(4) 
179 while br=9 


209 endwhile 

219 mouse(9) 

229 end 

239 func painting() 


269 endfunc 


msstat(mx,my,bl,br) 
if bl=-1 then painting() 


mSpOS(x,y) 


paint(x,y,2) 








第 3 一 51 図 paint サ ンプ ルプ ログ ラム 


10: コメ ント 文 
20 : 変数 宣言 
30 : 画面 モー ド を , 512x512 ド ッ ト の 256 色 モー ド に 設定 
40 一 60: パ レッ トー コー ド ュ ユー 3 に , 赤 。 青 , 縁 を セット する 。 こ の よう に ., palet 関数 の 中 
に , いき な り hsy 関 数 や 書い て カラ ー コ ー ド を 指定 する こと も で きる 。 
70 一 130 : 各 サ ンプ ル 図 形 の 描画 
140 一 220: 第 3 一 43 図 の 220 行 一 300 行 と 同じ 。 た だ し , 左 ク リッ ク し た 時 に 呼び 出さ れる 関数 
は , painting ( ) 
230 : 定義 関数 painting ( ) の 定義 宣言 
240: マ ウス カー ソル の ある 座標 を x, Y に 読み 込む 。 
250 : マ ウス カー ソル の ある 座標 X、 Y が 含ま れ て いる 領域 内 と. パパ レッ トコ ー ド 2 の 青 
色 で 塗り つぶ す 。 
260 : 定義 関数 終了 宮 言 。 こ の 関数 が 呼び 出さ れ た 次 の 行 (200 行 ) に 戻る 。 
< 文字 の 描画 > 


文字 を 表示 で きる の 
画面 に も ぉ 表示 で きま す 。 
【SYMBOL】 


は , テキ スト 画面 だ け で な 〈「SYMBOL」 関 数 を 使う こと で グラ フィ ッ ク 





書 式 





symbol (x, y, st, h, v, mo, pa, an) 





引数 | 
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imt x, yY, Da 
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ーー 始点 * 座 標 
ei 始点 y 座標 


P a… パ レッ トコ ー ト (文字 の 色 ) 

・x,、 y は 一 32768 一 32767 ま で の 値 

・pa は 画面 モー ド に より , 0 一 65535 ま で 

・ ク リッ ピン グ エ リ ア に つい て は , window 関数 で 指定 きれ た 範囲 


str st 

st… 表 示す る 文字 例 (文字 式 で も 可 ) 
shar h, Y, mo, an 

h…… 横 方 向 の 倍率 

Y…… 縦 方 向 の 倍率 


mo… 文 字 フ ォ ン ト の 種類 
mo ニ 0 の と き 6 12 


mo 三 1 の と き 8 16 
mo 三 2 の と き 12 24 
an… 表 示 文 字 列 の 回 転 角度 
an 三 0 の と き 0 
an 三 1 の と き 90 
an 三 2 の と き 180' 
an 三 3 の と き 270 

















第 3 一 52 図 は , 始点 x, 座標 , 表示 文字 列 。 縦横 の 倍率 、 文字 フォ ント の 種類 を 入力 する と , 
始点 XY 座標 を 中 心 に 各回 転 角 度 で 表示 文字 列 を 緑色 で 描く プロ グラ ム で す 。 なお, この 時 
始点 XY 座標 (回 転 の 中 心 と な る ) に 水色 で ドッ ト を 表示 し ます 。 





19 /* symbol test 

2 int x,y,i 

39 str st 

49 char h,v.mo,an 

59 screen 1,2,1,1 

69 input” 始 点 X 座 標 ":x 
79 input”" 始 点 Y 座 標 ":y 
89 input" 表 示 文 字 列 ":st 
99 input” 横 の 倍率 ”:h 
199 input" 縦 の 倍率 ”:yv 
119 input" 文 字 種 0 すり 
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179 
180 





120 an=9 

139 palet(1,hsv(54,31,31) ) 
149 palet(2,hsv(96,31,31) ) 
159 pset(x, y,2) 

169 for i=9 to 3 


199 next 
299 end 


symbol(x,y, st,h,v,mo, 1,an) 


an=an+1 








第 3 一 52 図 


10 : 


20 一 40 
50 


60 一 110 : 
120 : 
130 : 
140 : 
150 : 
160 : 
170 : 
180 : 
190 : 


< く グラ ラフ 


symbol| サ ンプ ルプ ログ ラム 


コメ ント 文 

: 変数 宜 言 

・ 画面 モー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定 

各 パ ラメ ー タ を キー ボー ド か ら 入 力 し , 各 変 数 に 代入 する 。 
表示 文字 列 の 回 転 角 度 の 初期 値 も を 0 (0” ) に する 。 

パレ ッ ト コ ー ド 1 に 緑色 セッ ト 

レッ トコ ー ド 2 に 水色 を セッ ト 

始点 座標 *, Y に 水色 の ドッ ト を 表示 する 。 

190 行 の next の 間 を 4 回 ルー プ す る (0 一 3)。 

入力 され た パラ メー タ で 文字 を 緑色 で 描く 。 回転 角度 は an の 値 で 決め る 。 
an の 値 を 一 つ 増 加 る せる 。 


next 文 


ィ ッ ク 画 面 の 消去 > 


テキ スト 画面 を 「CLS」 と いう 命令 で 消去 で きる よう に , グラ フィ ッ ク 画 面 を 消去 する 関数 


「WIPE ( 


【wIPE】 





| 書 式 








)」 が あり ます 。 こ の 関数 は , アク ティ イブ グ ラフ ィ ッ ク ペ ー ジ (「apage」 関 数 で 指定 
きれ て いる ペー ジ ) に つい て 消去 を 行い ます 。 

wipe ( ) 

な し 











第 3 一 53 図 は , 画面 モー ド で グラ フィ ッ ク 画 面 を 4 ペー ジ 確 保 し て , 4 ペー ジ 各 々 を 違う 色 で 
塗り つぶ し た 後 , 何 か キ ー を 押す ご と に 0 ペー ジ 目 か ら 順 番 に , wipe 関数 を 使っ て 消去 し て いく 
プロ グラ ム で す 。 
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19 /* wipe test 

29 int pag,i,j 

39 str space,mesl,mes2 

49 mesl=" こ れ は 、”" 

59 mes2=" ペ ー ジ で す 。”" 

69 dim str pn(3)=《70 アア 1 アリ 2 シア 3 7) 
79 screen 1,1,1,1 

89 vpage(15) 

99 palet(1,hsv(9, 31, 31) ) 
199 palet(2,hsv(32, 31, 31) ) 
119 palet(3,hsv(64,31, 31) ) 

129 palet(4,hsv(96,31,31) ) 

139 palet(5,hsv(9, 9,9) ) 

140 for pag=9 to 3 

159 apage(3-pag) 

159 Pa=pag+1 

170 fill1(9,9,512, 512, pa ) 

189 symbol(199,259,mesl+pn(3-pag)+mes2, 1,1,2,5, 9) 
190 for j=9 to 1999 


200 next 

219 next 

220 pag=9 

239 while pag<>4 

240 Space=inkey$ 
259 aPage(pag) 
269 wipe() 

270 DaAg=pag+l 
289 endwhile 

299 end 











第 3 一 53 図 wipe サン プル プロ グラ ム 
OS 避 蘭 光 下 補 
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20 一 30 : 
40 一 50 : 
60 : 


70: 


80 : 
90 一 130 : 
140 : 
: apage 関数 で アク ティ ブ ペ ー ジ の 設定 を 行う 。 こ の 場合 、3, 2 1, 0 ペー ジ の 順 


150 


160 : 
170: 
180 : 
190 一 200 : 
210 : 
220 : 
:pag が 3 より 大 きく な る まで , 280 行 の endwhile 間 を ルー プ 
240 : 
250 : 


230 


260 : 
270 : 
280 : 


変数 家計 
文字 変数 に , コメ ント の た め の 文 字 デ ー タ を 代入 する 。 
文字 型 の 配列 を 四 つ 確保 し 。 0, 1, 2, 3 と いう 文字 デー タ を 代入 する 。 


(pa (0) デ " 0 "。 pa (1) デ "1 7・・・pa (3) デ "3 9) 
画面 モー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定 

これ で グラ フィ ッ ク ペ ー ジ は , 0 一 3 の 4 ページ が 使用 可能 となり ま す 。 
vpage 関数 で 0 3 ペー ジ す べ で て を 表示 ON に 設定 する 。 

パレ ッ ト コ ー ド 1 一 5 に 各 カ ラー コー ド を セッ ト す る 。 
210 行 の next の 間 を 4 回 ループ する 。 こ の 時 , pag は 0 一 3 ま て 変化 する 。 


で 設定 され る 。 

2 パレ ッ ト コ ー ド pa を 1, 2, 3, 4 の 順 で 設定 する 。 
512X512 の 範囲 を pa で 表 き る れる パレ ッ ト コ ー ド で 塗り つぶ す 。 
「symbol」 関 数 で 各 ペ ー ジ を 表す メッ セー ジ を 描く 。 

時 間 調 整 の た なめ の 空 ル ー プ 

next 文 

ペー ジ を 表す 変数 pag を 0 に する 。 


何 か キ ー が 押 き れる まで 待つ 。 押 きれ た ら , 次 の 行 へ 進む 。 

apage 関数 で アク ティ ブ ペ ー ジ の 設定 を 行う 。 こ の 場合 、0, 1, 2 3 ペー ジ の 順 
で 設定 され る 。 

アク ティ ブ グ ラフ ィ ッ ク ペ ー ジ の 消去 を 行う 。 

ペー ジ を 表す pag の 値 を 1 増加 させ る 。 

endwhile 文 。230 行 に 戻る 。 


( 5 ) その 他 の 関数 


画面 上 に 描い た グラ フィ ッ ク を 違う 場所 に コピー し た り ,、 ディ スク に 保存 し た りす る た め の 関 
数 が get と put で す 。get と put を 使用 する 場合 に は , あら か じ め 配 列 を 用 意 し て お き , その 配列 
を 使っ て デー タ を や り と り し ます 。 考え ぇ 方 と し て は , get で デー タ を 配列 に 読み 込み 、put て 配列 
の デー タ を グラ フィ ッ ク 画 面 に 書き 込む よう に な り ま す 。 従っ て , この 配列 の デー タ を fwrite 関 
数 を 使っ て ディ スク に 書き 込め ば. グラ フィ ッ ク 画 面 の 保存 が 可能 に な り ま す 。 


【GET】 





- 書 式 
| 引 数 









get (x1, y1, x2。 y2, na) 





int x1, y1, x2, y2 
x1… 始 点 の x 座 標 。y1… 始 点 の Y 座 標 , x2… 終 点 の x 座 標 、 y2… 終 点 の 座標 
na… 数 値 型 の 一 次 元 配列 名 (パタ ー ン デー タ を 格納 する ) 








・x1, y1, x2, y2 は , window 関数 で 指定 され た 範囲 内 の 値 を 取る こと が で きま す 。 
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・ 配 列 na へ の ドッ トバ パ ター ン の 読み 込み か た は (x1, y1), (x1 二 1, y1)。… (x2, y1), (x1, y1 
キ 19。 (RE1 寺 1, 骸 圭 1)。 で 伝 2、 y20 となり ます 。 

また だ , 画面 モー ド に よっ て , 配列 に 読み 込む デー タ が 変化 し ます 。 

実 画面 1024 メ 1024、 16 色 モー ド の 場合 は 一 つの ドッ ト を 4 ビッ ト て 表現 し て いる の で , 読み 
込む 配列 の 型 に よっ て 決 の よう に な り ま す 。 











・char 型 配列 ……i…… 一 つの 配列 の 中 に 2 ドット の デー タ が 入る 
・int 型 配列 it… ー つ の 配列 の 中 に 8 ドッ ト の デー タ が 入る 
・float 型 配列 ……… ー つ の 配列 の 中 に 16 ド ッ ト の デー タ が 入る 
1 
(50, 50) 


NN 


(|49, 149) 




















第 3 一 54 図 画面 上 に 四角 の グラ フィ ッ ク を 描く 

例え ば , 第 3 一 54 図 の 領域 の パタ ー ン を 読み 込む 場合 、 ド ッ ト 数 は 縦 100 ド ッ ト メ 横 100 ド ッ ト = 
10000 ド ッ ト 分 の 配列 を 用 意 す る こと が 必要 で す 。 こ の 時 , 

・char 型 な ら 10000 プ 2 ニ 5000 ヶ 

・int 型 な ら 。 10000 プ 8 ニ 625 ヶ 

・float 型 な ら 10000 プ 16 三 313 ヶ 
の 配列 を 用 意 し ます 。 

実 画面 512X512, 16 色 モー ド の 場合 は 1024※1024, 16 色 モー ド と 同じ で す が , apage 関数 で 指定 
され だ た ペー ジ に 対し て の み 有 効 で す 。 

実 画面 512X512、 256 色 モー ド の 場合 は 1 ドット を 1 バイ ト で 表現 し て いる の で 


・char 利 ・ ド ーー… ーー つの 配列 の 中 に 1 ドッ ト の デー タ が 入る 
・int 玉 り RECOPCEPCCPPPFEEPP ー つ の 配列 の 中 に 4 ド ッ ト の デー タ が 入る 
・float 弄 …ー ド ーー ーー つの 配列 の 中 に 8 ド ッ ト の デー タ が 入る 


この 時 も apage 関数 で 指定 きれ だ ペー ジ に 対し て の み 有 効 で す 。 

実 画面 512 X512, 65536 色 モー ド の 場合 は , 1 ドッ ト を 2 バイ ト で 表現 し て いる の で , 
二 つ の 配列 の 中 に 1 ドッ ト の デー タ が 入る 

・int 電 eietrtn ーー つの 配列 の 中 に 2 ドッ ト の デー タ が 入る 


・char 型 
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・fHoagt ee ーー つの 配列 の 中 に 4 ドッ ト の デー タ が 入る 

10000 ド ッ ト の 領域 を char 型 配列 に 読み 込む た め に は , この 画面 モー ド の 場合 に は , 10000※ 
2 三 20000 ヶ の 配列 を 用 意 す る 必要 が ある と いう こと で す 。 

get 関数 で 読み 込ん だ ど デ ー タ を 画面 上 に 表示 する 関数 が , put 関数 で す 。 


【PUT】 








' 書 式 | put (1, y1, x2。 y2, na) 





- 数 int x1, yl1, x2, y2 
* 1 …… 始 点 の * 座 標 





Y 1…… 始点 の Y 座 標 
XX 2… の の 終点 の x 座 
Y 2 …… 終点 の Y 座 標 


na…… 数 値 型 の 一 次 元 配 列 名 (( パ ター ン デ ー タ の 入っ た 配列 名 ) 











・x1, y1, x2。 y2 は window 関数 で 指定 され た 男 囲 内 の 値 

・ 配 列 内 の デー タ 構 造 は get 関数 と 同じ 
| 第 3 一 55 図 の プロ グラ ム は , 画面 に 二 つ の 枠 が 指定 され , 左 の 枠 の 中 で マウ ス の 左 ボ タン を 押 
す と 水色 の 点 が 描か われ ます の で , ドラ ッ グ し た り し て 適当 な 絵 を 描き ます 。 次 に , 右 ボ タン を 押 
す と 右側 の 枠 の 中 に 今 描い た 絵 が コピ ー き され る と 同時 に 、 "gamen.dat" と いう ファ イル 名 で ディ 
スク に セー ブ さ れ 終 了 し ます 。 次 に , 第 3 一 56 図 の ゲロ グラ ム を 実行 する と , ディ スク が から" 
gamen. dat" を 読み 込ん で , 画面 に 先程 描い た 絵 を 出力 し ます 。 





10 /* put & get test 

20 int mx,my,bl,br 

39 dim int gdata(12613) 
49 screen 1,2,1,1 

59 mouse(9) 

69 mouse(1) 

79 mouse(4) 

89 palet(1,hsv(96,31,31) ) 
99 palet(2,hsv(9, 9, 31) ) 
199 box(9, 199, 250, 399, 2) 
119 box(261,109, 511,309, 2) 
129 msarea(9, 199, 259,309) 
139 while br=9 
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149 
159 
169 
170 
189 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
3009 
310 
320 





msstat(mx,my,bl,br) 
if bl=-1 then psetting() 
endwhile 
copy() 
mouse(9) 
end 
func psetting() 
int x,y 
mSpoS(x,y) 
pset(x,y,1) 
endfunc 
func copy() 
int fn 
get(9,199,259,399, gdata ) 
put(261, 199,511,399, gdata ) 
fn=fopen(”"gamen.dat”."c”) 
fwrite(gdata,12613,fn) 
fclose(fn) 


endfunc 
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20 


30 ・ 
40: 
50 : 
60 : 
0 人 
80 一 90 : 
100 : 
110 : 
120 : 
130 : 
140 : 
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ヨコ メジ ト 文 

・ 変数 宣言 

配列 宣言 

画面 モー ド を 512※512, 256 色 モー ド に 設定 

マウ ス の 初期 化 

マウ スカ ー ソ ル の 表示 

右 ボ タン の 開放 

パパ レット コー ド 1., 2 に 水色 , 白色 を セッ ト 
左側 の 白 枠 を 描く 。 

右側 の 白 梓 を 描く 。 

マウ スカ ー ソ ル の 移動 範囲 を 左側 の 白 枠 の 中 だ け に 設定 する 。 
マウ ス の 右 ボ タン が 押 き れる まで , 160 行 まで の 間 を ルー プ す る 。 
マウ ス の ボタ ン が 押さ きれ た か を 検出 する 。 

・ も し 左 ボ タン が 押 き れ た な ら ば , 定義 関数 psetting ( ) へ 行く 〈。 
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170 : 
180 : 
190 : 
200 : 
210 : 
220 : 
230 : 
240 ・ 
250 : 
260 : 
270 : 


280): 
290 : 
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130 行 へ 戻る 。 

右 ボ タン が 押さ れ た だ たら , この 行 に き て 定義 関数 copy ( ) を 呼び 出す 。 

マウ ス の 初期 化 

終了 

定義 関数 psetting ( ) の 定義 家 言 

変数 宣言 (ロー カル ) 

マウ スカ ー ソ ル の 座標 を *, Y に 読み 込む 。 

読み 込ん だ 座標 々 、 Y に 水色 の ドッ ト を 描く 。 

定義 関数 終了 宮 言 。 呼 ば れ た 次 の 行 へ 戻る 。 (160 行 ) 

定義 関数 copy ( ) の 定義 宣言 

変数 宮 言 (ロー カル ) 

左 碧 梓 内 の パタ ー ン を 配列 gdata に 読み 込む 。 こ の 場合 , 画面 モー ド か ら 1 ド ッ ト は 

1 バイト で 表現 で き , 白 梓 内 の ドッ ト 総 数 は 縦 201 メ 横 251= ニ 50451 ド ッ ト に な り ま す 。 

gdata は , int 型 の 配列 な の で , 一 つの 配列 の 中 に 4 ドット 分 を 格納 で きる の で ' 50451 
4 寺 12613 ヶ 分 の 配列 を と れ ば よい こと に な り ま す 。 

右 白 枠 内 の 位置 に 配列 gdata に 格納 され て いる パタ ー ン を 描く 。 

"gamen. dat" と いう ファ イル を オー プン する 。 

配列 gdata の 値 を "gamen. dat'" と いう ファ イル に 書き 込む 。 

"gamen.。 dat" と いう ファ イル を クロ ー ズ する 。 

定義 関数 終了 宮 言 。 呼 ば れ た 次 の 行 (180 行 ) に 戻る 。 
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20 
30 
49 
59 
69 
79 
89 
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119 





/* put & get test 2 

int fn 

dim int gdata(12613) 
SCPeen 1,2。1.1 
palet(1,hsv(96, 31, 31) ) 
palet(2,hsv(9, 9, 31 ) ) 
fn=fopen(”"gamen.dat”," ェ クツ ) 
fread(gdata,12613,fn) 
fclose(fn) 

put(9, 199, 259,399, gdata) 


end 
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コメ ント 文 


変数 宜 言 
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30 : 配列 宣言 
40 : 画面 モー ド を 512X512, 256 色 モー ド に 設定 
50 一 60 : パ レッ トコ ー ド 1, 2 に 水色 を セッ ト 
70 : "gamen.。 dat" と いう ファ イル を 読み 込み 専用 で オー プン する 。 
80 : 配列 gdata に "gamen. dat" と いう ファ イル の 内 容 を 書き 込む 。 
90 : "gamen. dat" と いう ファ イル を クロ ー ズ する 。 
100 : 配列 gdata に 読み 込ま れ た パタ ー ン を 画面 に 描く 。 
"graph. fnc" の 最後 の 関数 が , contrast 関数 で す 。 こ の 関数 は , 画面 の 明る る を コン トロ ー ル 
する 関数 で す 。 
【CONTRAST】 
書 式 contrast1 (i) 
引 数 | int i 
i 三 0 (暗い ) 一 15 (明る い ) 














・0 一 15 ま で の 16 段 階 で , 画面 の 明る き を コン トロ ー ル で きま す 。 
第 3 一 57 図 は , 画面 に 円 を 描き , contrast 関数 で 徐々 に 画面 を 暗く し , 何 $ も 見 え を なくなっ た 状 
態 で 円 の 中 を 塗り つぶ し , 徐々 に 画面 を 明るく 《 し て いく プロ グラ ム で す 。 





19 
20 
30 
49 
59 
60 
70 
89 
99 
190 
110 
129 
139 
149 
159 





/* contrast test 
int ji,j 
screen 1,2,1,1 
palet(1,hsv(16, 31, 31) ) 
palet(2,hsv(96, 31,31)) 
circle(256, 256, 159, 1, 9, 369, 256) 
for i=9 to 15 
contrast(15-i) 
for j=9 to 599 
next 
next 
paint(256, 256, 2) 
for i=9 to 15 
contrast(9+i) 
for j=9 to 599 
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169 next 
179 next 
189 end 





第 3 一 57 図 contrast サン プル プロ グラ ム 


10 : コメ ント 文 
20 : 変数 宣言 
30 : 画面 モー ド を 512X512, 256 色 モー ド に 設定 
40 一 50 : パレ ッ ト コ ー ド 1, 2 に 黄色 , 水色 も モ セット 
60 : 画面 の 中 央 に 半径 150 の 黄色 の 円 を 描く 
70 一 110 : for-next 間 を ルー プ 。i の 値 は 0 一 15 に 変化 する 。 この 時 , contrast 関数 の 引数 は 
15 一 i で 表 き る れ て いる の で , 15, 14。 13…… 0 と 変化 する 。90 一 100 行 の for-next 
ルー は, 空 ル ー プ で , だ ん だ ん 暗く する だ ため に 時 間 を 稼い で いる だ け で す 。 
120 : 円 の 中 を 水色 で 塗り つぶ す 。 こ の 処理 は 画面 が 時 い た め わ か り ま せん 。 
130 一 140 : 70 一 110 の 処理 の 送 で , contrast 関数 の 引数 を 0、1, 2、3…… 15 と 変化 させ , だ 
ん だ ん 画面 を 明る くし て いく 。 


把 息 反 己 |』 マウ ス 関 数 





X68000 に と っ て マウ ス は , ユー ザー と の 大 切な インターフェース で す 。 こ の た め , X-BASIC 
に も マウ ス を 効果 的 に 利用 する た め の 関数 群 が 用 意 き され て いま す 。 マ ウス を 使用 する 場合 は 、 グ 
ラフ ィ ッ ク を 使う 時 と 同じ よう に マウ ス を 使う た め の 準 備 が 必要 で す 。 こ の 時 。 マ ウス の 各 初 其 
設定 を 行う 関数 が 「MOUSE」 関 数 で す 。 

【MOUSE】 





書式 | m=mouse (i) 
| 引 数 | int i (i…0 一 4) 
i 三 0 の 時 マウ ス の 初期 化 を 行う 。 
1 の 時 マウ スカ ー ソ ル を 表示 する 。 
i 三 2 の 時 マウ スカ ー ソ ル を 消す 。 
3 
4 





本 


の 時 マウ ス の 状態 を 返す 。 
の 時 ソフ トキ ー ボ ー ド の 表示 を 禁止 し , 右 ボタン を 開放 する 。 


i 





人 ーー 





int m 


引数 i が 3 以外 の 場合 、 通 常 0 が 返る 。 エラ ー の 場合 は , 一 1 が 返る 。 引 数 i が 3 
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の 時 は , マウ スカ ー ソ ル が 表示 され て いれ ば ー 1 が 返り , 表示 し て いな けれ ば 0 
が 返る 。 








マウ ス は , XX-BASIC 起動 時 や mouse (0 ) に よっ て 初期 化 き され た 時 に は , 右 ボ タン を 1 度 ク 
リッ ク す る と マウ スカ ー ソ ル が 表示 きれ , も う 一 度 ク リッ ク す る と ツ ソフ トキ ー ボ ー ド が 表示 きれ 
る よう に 設定 され て いま す 。 従 っ て , 右 ボ タン を 使用 する プロ グラ ム を 作成 する 場合 に は , mouse 

(4 ) を 実行 し て , ソフ トキ ー ボ ー ド が 表示 され な いよ うに する 必要 が あり ます 。 

マウ スカ ー ソ ル は , 通常 表示 画面 サイ ズ の 範囲 内 を 移動 する こと が 出来 ます が , ある 範囲 内 だ 
け を 移動 可能 な 状態 に する こと が 出来 ます 。 

この マウ ス の 移動 範囲 を 設定 する 関数 が 「MSAREA」 関 数 で す 。 


【MSAREA】 





hn msarea (x1, y1, x2、72) 


| m 数 int x1, yl1, x2, y2 

x 1 … 移 動 範囲 左上 X 座 標 
Y 1 … 移 動 男 囲 上 Y 座 標 
x 2 … 移 動 範囲 話 下 X 座 標 
Y 2 … 移 動 範囲 右 下 Y 座 標 

















移動 範囲 の 最大 値 は 表示 画面 サイ ズ と な り ま す 。 

第 3 一 58 図 は , 実行 きせ る と マウ スカ ー ソ ル が 表示 きれ, 左上 の 座標 (0, 0) か ら 左 クリ ッ 
ク し た と ころ の 座標 に 黄色 の 四角 形 を 描き , その 四角 形 の 中 が マウ ス の 移動 男 胃 し な る プロ グラ 
ム で す 。 





10 /* msarea test 

29 int mx,my,bl,br,dx,dy 

39 screen 2,9,1,1 

49 mouse(9) 

59 mouse(1) 

69 mouse(4) 

79 palet(9,hsv(9, 9, 9) ) 

89 palet(1,hsv(32,31,31)) 
99 while br=9 

199 msstat(mx,my,bl,br) 
110 if bl=-1 then mst() 
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129 endwhile 

139 mouse(9) 

149 end 

159 func mst() 

160 7 宇和 る 

170 msSpoS(x,y) 

180 if x=9 then x=1 
190 if y=9 then y=1 
200 mSarea(9,9,x,y) 
210 box(9, 9,dx,dy,9) 
229 box(9, 9,x,y,1) 
230 dx=x:dy=y 

249 endfunc 











第 3 一 58 図 msarea サ ンプ ルプ ログ ラム 


10 き ミユ メジ ドド 文 

20 : 変数 宣言 

30 : 画面 モー ド を 768※512 の 16 色 モー ド に 設定 

40 : マウ ス の 初期 化 

50: マ ウス カー ソル を 表示 する 

60 : マ ウス の 右 ボ タン の 開放 

70: パレ ッ ト コ ー ド 0 に 黒 (透明 ) を モット 

80 : パレ ッ ト コ ー ド 1 に 黄色 を セッ ト 

90 : マウ ス の 右 ボ タン が 押 き る れる まで 120 行 まで の 間 を ルー プ 
100 : マウ ス の ボタ ン が 押さ れ た か を 見 る 

110: も し , 左 ボ タン が 押さ きれ た な ら 定 義 関数 mst ( ) を 呼び 出す 
120 : 90 行 へ 戻る 

130 : マウ ス の 右 ボ タン が 押さ る れ る と この 行 に き て , マウ ス を 初期 化す る 
140 : 終了 

150 : 定義 関数 mst ( ) の 定義 宣言 

160 : 変数 宣言 

170: マ ウス カー ソル の 座標 を 変数 *, Y に 読み 込む 

180: も し , X 座 標 が 0 で あれ ば 変数 * は , 1 と する 

190: も し , Y 座 標 が 0 で あれ ば 変数 Y は ,。 1 と する 

200 : マウ ス の 移動 範 胃 を (0, 0) か ら (x, Y) の 範囲 に 設定 する 
210 : 前 回 の 移動 範囲 を 表す 四角 形 を 消す 
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220 : 現在 設定 され て いる 移動 範囲 に 黄色 の 四角 形 を 描 
230 : 変数 *x、 Y の 値 を 変数 dx, dy に 代入 する 
240 : 定義 関数 終了 宣言 呼ば れ た 次 の 行 に 戻る (120 行 ) 


マウ ス が 初期 化 き れ て . マウ スカ ー ソ ル を 表示 させ た 場合 、 マ ウス カー ソル の 位置 は 画面 の 左 
上 に 表示 きれ ます 。 マ ウス カー ソル は , マ ウス を 動か せ ば その 移動 量 に 応じ て 画面 の 中 を 自由 自在 
に 動き ます が , マウ ス を 動か る なく て 5 も 「SETMSPOS」 関 数 に よっ て 移動 きせ る こと も 出来 ます 。 


【SETMSPOS】 
5 





書 式 setmspos (X, Y) 





引 数 | int x, Y 
x… 指 定 X 座 標 
Y… 指 定 Y 座 標 














x。 y て 指定 され た 座標 に マウ スカ ー ソ ル を 表示 し ます 。 

指定 で きる 範囲 は 、 msarea 関数 に よっ て 設定 され た 範囲 内 で す 。 

第 3 一 59 図 は , setmspos 関数 に よっ て マウ スカ ー ソ ツル で サイ ンカ ー ブ を 描か せる プロ グラ ム で 
す 。 





19 /*setmspos test 

29 int x,y 

39 float ra 

49 screen 2,9,1,1 

59 mouse(9) 

69 mouse(1) 

79 palet(1,hsv(32,31,31) ) 
89 for x=9 to 729 


99 ra=x*(pi(1)/180) 
199 y=sin(ra)*89 

110 setmspos(x+5,y+256) 
129 pset(x+5,y+256, 1 ) 
139 next 

149 mouse(9) 

159 end 











第 3 一 59 図 setmspos サン プル プロ グラ ム 
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10 : 
0 が > 
30 : 
40: 
50 : 
60 : 
70: 
80 : 
90 : 
100 : 
110 : 
120 : 
130 : 
140 : 


1 


メ 
数 
数 官 言 (float 型 ) 

画面 モー ド を 768X512 の 16 色 モー ド に 設定 

マウ ス の 初期 化 

マウ スカ ー ン ソル を 表示 する 

パレ ッ ト コ ー ド 1 に 黄色 も セッ ト 

0 一 720 度 まで x を 変化 さき せる (for 一 next 文 ) 

x 度 を ラジ アン に 変換 する 

sin 関数 で * 度 の 正弦 を 求め る 

変数 x、 Y で 指定 され る 座標 に マウ スカ ー ソ ル を 表示 する 
変数 *x, Y で 指定 され る 座標 に 黄色 の ドッ ト を 描く 

next 文 

マウ ス の 初期 化 


文 


て 


思 還 
下 中 


マウ ス は , ポイ ン テ ィ ン グ デ バイ ス と も いわ れる よう に 一 種 の 座標 入力 装置 で あり , コン ピュ 
ー タ 側 は 入力 され た 座標 デ ゲー タ に 基づい て さま ざま な 処理 を 行い ます 。 こ の 座標 デー タ を 読み 込 
む 関 数 が 「mspos」 関 数 で す 。 
【MSPOS】 





| 








| 書 式 msDpos (X, Y) 
| 引 数 | int 型 の 変数 (定数 で な いと ころ に 注意 !) 


戻り 値 












X と いう 変数 の 中 に は , マウ スカ ー ソ ル の 指す X 座 標 
Y と いう 変数 の 中 に は , マウ スカ ー ソ ル の 指す Y 座 標 カ 


み 込 まれ る 。 
読み 込ま れる 。 















第 3 一 60 図 は , マウ スカ ー ソ ル の 指す 位置 の XY 座標 を 画面 に 表示 する プロ グラ ム で す 。 マ 
ウス を 使う プロ グラ ム を 作成 する 場合 、 この 関数 は 非常 に 重要 で す の で し っ か り と 覚え て むい て 


下 き い 。 





10 
20 
39 
49 
59 
69 
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/* mspos test 
int x,y 
mouse(9) 
mouse(1) 
while 1 





mSpos(x,y) 


Yanvnununwnunamvmvmvmunuwemvmvnanenvmwnenumvmvnmumvmvnunumvmvnumunvnvnnunvnvmununvnvmvmumvnvnvnumunvnvmvmunvmvmvmunvnvmvnmunner 3-3 外部 関数 www 


79 locate 5,5 : print "Xix, "ツア j ッ 
89 endwhile 
99 end 





第 3 一 60 図 mspos サン プル プロ グラ ム 
10 : コメ ント 文 
20 : 変数 宣言 
30 : マウ ス の 初期 化 
40: マウ スカ ー ソ ル の 表示 
50 : 80 行 まで の 間 を 無限 ルー プ 
60 : マ ウス カー ソル の 位置 の x, 座標 を 変数 X、 Y に 読み 込む 
70 : 変数 X、 Y の 値 を 画面 に 表示 する 
80 : 50 行 に 戻る 
* ブ ログ ラム を 終了 する 場合 , break キー を 押し て 下さい 。 


マウ ス を 使っ た プロ グラ ム を 作成 する 場合 に も うぅ 一 つ 大 切な 関数 が あり ます 。 それ は , マウ 
ス の ボタ ン の 状態 を 返し て くれ る 「msstat」 関数 で す 。 プ ログ ラム で は , 普通 この 関数 に よっ て 
得 た マウ ス ボ タ ン の 状態 で どの よう な 処理 を 行う か を 決定 し て いき ます 。 

【MSSTAT】 





書 式 | msstat (x, Y, bl, br) 








引 数 | int 変 数 





戻 あ 値 二 | *…… X 方 向 の 相対 移動 量 (一 128 一 127) 
Wowano Y 方 向 の 相対 移動 量 (一 128 一 127) 
b 1 … 左 ボタ ン が 押 き れ て いれ ば ー 1 , 押 き れ て いな けれ ば 0 





br… 右 ボタ ン が 押 き れ て いれ ば ー 1, 押 き れ て いな けれ ば 0 











第 3 一 61 図 は .、 どちら の ボタ ン が 押さ れ た か を 画面 に 出力 する プロ グラ ム で す 。 終 了 す る 時 は , 
break キー を 押し て 下さい 。 





19 /* msstat test 
29 int x,y,bl,br 
39 mouse(9) 
49 mouse(4) 
59 while 1 
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69 msstat(x,y,bl,br) 

7 if bl=-1 then locate 19,5:print"left on! ”" 

89 if br=-1 then locate 19,5:print"right on%7 

90 if bl=9 and br=9 then locate 19,5:print" 
199 endwhile 

119 end 





第 3 一 61 図 msstat サン プル プロ グラ ム 


10 : 
20 : 
30 : 
40: 
50 : 
60 : 
70 : 
80 : 
90 ・ 
100 : 


コメ ント 文 

変数 宣言 

マウ ス の 初期 化 

マウ ス の 右 ボ タン の 開放 

100 行 まで の 間 の 無限 ルー プ 

マウ ス の ボタ ン の 状態 を 変数 bl, br に 読み 込む 

も し, 左 ボ タン が 押さ きれ て いた ら "1eft on ! "と 表示 する 
も し, 右 ボ タン が 押さ きれ て いた ら "right on ! "と 表示 する 
どちら も 押さ れ て いな けれ ば , 空白 を 表示 する 
50 行 に 戻る 


マウ ス の ボタ ン に 関し て ぉ うぅ 一 つの 関数 が 「msbtn」 で す 。 
この 関数 は , ボタ ン が 指定 の 状態 に な る まで の 時 間 を 返す 関数 で ダブ ルク リッ ク を 検出 する 時 
な ど に 便利 で す 。 











【MSBTN】 

書 式 | bs=msbtn (n, b, t) 
前 

引 数 | int n, b, t 
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SB 
戻り 値 


n… ボ タン の 状態 

nー0 の 時 ボタ ン が 離さ れる まで 

nー1 の 時 ボタ ン が 押さ れる まで 

b… ボ タン の 左右 

b= ニ 0 の 時 左 ボ タン 

1 の 時 右 ボ タン 

t … 待 時 間 の 最大 値 

t の 値 が 0 , 1, 65535 の 場合 は . ずっ と 待つ 。 








int bs 





"nvnvnvrvnvnunununvnvnvrvnvnwnwnvnvnvnvnunvnvnvnvnvnurunununvnvnvnvnvnvnnunvnvnvnvnvnununvnvnvnvnvnununwnvnvnvrvmunununvnvnvnvru うー 2 條 癌 中 半 数 www 


マウ ス ボ タ ン が それ ぞ れ の 状態 に な る まで の 時 間 を 返し ます 。 
待 時 間 の 最大 値 を 越え た 場合 は , 一 1 を 返し ます 。 
ドラ ッ グ され た 場合 は , 0 を 返し ます 。 





第 3 一 62 図 は , ダブ ルク リッ ク を 検出 する プロ グラ ム で す が , 最初 に 待 時 間 を 聞い て きま す の 
で 入力 し て 下さ い 。 ダ ブル クリ ッ ク が 成功 すれ ば , ビー プ 音 が 鳴り ます 。 





19 /* msbtn test 

29 int x,y,bl,br,bs,t 
39 mouse(9) 

4 mouse(4) 

59 input"time = 「:t 
69 mhile br=9 


70 msstat(x,y,bl,br) 

80 if bl=9 then continue 

99 bs=msbtn(9,9,t) 

109 if bs<19 or bs>t-19 then continue 
110 bs=msbtn(1,9,†) 

120 if bs<19 or bs>t-19 then continue 
139 bs=msbtn(9,9,t) 

140 if bs<19 or bs>t-19 then continue 
159 beep 

1609 Print"Double click ok!” 


179 endwhile 
189 mouse(9) 
199 end 











第 3 一 62 図 msbtn サン プル プロ グラ ム 
10 : コメ ント 文 
20 : 変数 宣言 
30 : マウ ス の 初期 化 
40 : 有 ボ タン の 開放 
50 : 待 時 間 の 入力 
60 : マウ ス の 右 ボ タン が 押さ れる まで 170 行 まで の 間 を ルー プ 
70 : マウ ス ボ タ ン の 状態 を 見 る 
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80 : 
0 


100 : 
110 : 


120 : 
130 : 


140 ・ 
150 : 
160 : 
170 : 
180 : 


ja)| ジョ イス ティ ッ ク 関 数 





左 ボ タン が 押さ れ て いな けれ ば , 60 行 に 戻る 

左 ボ タン が 離さ れる まで の 時 間 を 変数 bs に 返す 。 こ の と き 待 時 間 t を 越 を たら 一 1 を 返 
す 

bs の 値 が 10 よ り 小 さく , t 一 10 よ り 大 きけ れ ば 60 行 に 戻る 

左 ボ タン が 押さ れる まで の 時 間 を 変数 bs に 返す 。 こ の と き 待 時 間 t を 越 を た ら 一 1 を 返 
す 
bs の 値 が 10 よ り 小 きさく, t 一 10 よ り 大 きけ れ ば 60 行 に 戻る 

左 ボ タン が 離さ れる まで の 時 間 を 変数 bs に 返す 。 こ の と き 待 時 間 t を 越 を た ら 一 1 を 返 
す 
bs の 値 が 10 よ り 小 さく , t 一 10 よ り 大 きけ れ ば 60 行 に 戻る 

ビー プ 音 を 鳴ら す 

ダブ ルク リッ ク が 成功 し た こと を 示す コメ ント を 画面 に 出力 する 
60 行 に 戻る 

マウ ス を 初期 化 





ここ で は , ゲー ム 等 を 作る 時 に 大 切な ジョイスティック に 関す る 関数 の 説明 を 行い ます 。 
X68000 に は 素晴らし い ゲ ー ム が これ か ら も た くさ ん 出 て くる と 思い ます が , 皆さん も 一 つ 自 分 の 
ゲー ム で も 作っ て 見 た な らい か が で し ょ うか ? 


【STICK】 








si 三 stick (i) 








int i 
i 三 1 の と き ジョ イス ティ ッ ク 1 の ステ ィ ッ ク の 状態 を 調べ る 。 
i 三 2 の と き ジョ イス ティ ッ ク 2 の ステ ィ ッ ク の 状態 を 調べ る 。 
int sti 


ステ ィ ッ ク の 倒れ 方 に よっ て 第 3 一 63 図 の よう な 値 が 返っ て きま す 。 











wwwnwvnwwwwwumwnvnurvnvwuvnvnuvnunvnwwunvnvnwvrununvnuawmvwuwvnvwunvnvwusvnwvnvnuwwnvwnvnwunwwewneuvnwuwwuewe 3-3 外部 関数 www 














第 3 一 63 図 ステ ィ ッ ク の 倒れ 方 と 戻り 値 と の 関係 


【STRIG】 





9 trg 三 strig (1i) 





引 数 int i 

き ジョ イス ティ ッ ク 1 の トリ ガー の 状態 を 調べ る 。 
還 き ジョ イス ティ ッ ク 2 の トリ が ガー の 状態 を 調べ る 。 
戻り 値 int trg 

trg 王 0 の と き トリ ガー1, 2 と も 押さ れ て いな い 。 
trg 三 1 の と き トリ ガー1 の み 押 きれ て いる 。 
trg= ニ 2 の と トリ ガー 2 の み 押 され て いる 。 
trg 三 3 の と き トリ ガー1, 2 と も 押さ きれ て いる 。 





Gy 











に 





第 3 一 64 図 は 。 ジョ イス ティ ッ ク で マウ スカ ー ソ ル を 動か し て 画面 に 線 を 描く プロ グラ ム で す 。 
トリ ガー 1 を 押す と 緑 , トリ ガー 2 て 水色 の 線 と な り ま す 。 終 了 す る 時 は , トリ ガー1, 2 を 同 
時 に 押し て 下さ い 。 





19 /* stic & strig test 
29 int sti,trg,x,y,col=1 
39 screen 2,9,1,1 

49 mouse(9) 

59 mouse(1) 
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69 x=384 : y=256 

79 palet(1,hsv(64,31,31)) 

89 palet(2,hsv(96,31,31)) 

99 while trg<>3 

1090 sti=stick(1) 

110 Switch sti 

120 case 1:x=x-1:y=y+l:pset(x,y,col):break 
130 case 2:y=y+l:pset(x,y,col):break 

140 case 3:x=x+liy=y+l:pset(x,y,col):break 
150 case 4:x=x-1:pset(x,y,col):break 

169 case 6:x=x+l:pset(x,y,col):break 

170 case 7:x=x-1:y=y-l:pset(x,y,col):break 
189 case 8:y=y-1:pset(x,y,col):break 

199 case 9:x=x+l:y=y-1:pset(x,y,col):break 
200 endswitch 

219 if x>767 then x=767 

220 if y>511 then y=511 

230 if x<9 then x=9 

240 if y<9 then y=9 

259 SetmspoS(x,y) 

269 trg=strig(1) 

270 Switch trg 

280 case l:col=l:break 

299 case 2:col=2:break 

300 endswitch 

319 endwhile 

320 mouse(9) 

339 end 











第 3 一 64 図 ジョ イス ティ ッ ク 関 数 サン プル プロ グラ ム 
10 : コメ ント 文 
20 : 変数 宣言 
30 : 画面 モー ド を 768X512 の 16 色 モー ド に 設定 
40 : マ ウス の 初期 化 
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50 : マウ スカ ー ソ ル を 表示 
60 : 座標 の 初期 値 を 変数 X, Y に 代入 

70 一 80 : パレ ッ ト コ ー ド 1, 2 に 緑 , 水色 モット 
90: ト リガ ー1, 2 が と も に 押さ れる まで 310 行 まで も ルー プ 
100: ジ ョ イス ティ ッ ク 1 の ステ ィ ッ ク の 状態 を 変数 sti に 返す 

110 一 200 : sti の 内 容 に よっ て 点 の 表示 座標 を 変え て 点 を 描く 

210 一 240 : 点 の 座標 が , 画面 の 外 の 値 に な ら な いよ うに 条件 を 与え る 
250 : 点 の 表示 座標 に マウ スカ ー ソ ツル を 表示 する 
260: ジ ョ イス ティ ッ ク 1 の トリ ガー の 状態 を 変数 trg に 返す 

270 一 300 : trg の 内 容 に よっ て 描く 色 を 変え る 
310 : 90 行 に 戻る 
320 : マウ ス の 初期 化 (トリ ガー1, 2 と も に 押 き る れ て いれ ば , ルー プ を 抜け て , この 行 に 

来る ) 


オー ディ オ 関 数 





X68000 で は , ADPCM と いう 方 式 に よっ て 音声 を サン プリ ング する こと が 可能 で す 。X68000 の 
音声 入力 端子 (AUDIO IN) か ら 音 声 信 号 を 取り 込み デジ タル デー タ に 変換 する こと に より メモ 
リ に 格納 する こと が 出来 る の で す 。 

この 素晴らし い 機能 ち も ベーBASIC か ら 「audio .fnc」 を 使っ て 利用 する こと が 可能 と な っ て い 
ます 。 

「audio.fnc」 の 中 に は , 音声 デー タ を メモ リ に 格納 (録音 ) する た め の 「A REC」 関数 と メモ 
リ に 格納 され た デー タ を 再生 する た め の 「A PLAY」 関数 が 用 意 さ きれ て いま す 。 


【A REC】 





書 式 | arec (na, frq, le) 





引 数 | na…pcm デ ー タ を 格納 する 数 値 型 の 一 次 元 配 列 の 名 前 
int frq, le 

frq… サ ンプ リン グ 周 波数 

frq ニ 0 の 時 3.9KHz 

(1 秒 当 た り 1950 バ イト の メモ リ を 消費 ) 

frq= ニ 1 の 時 5.2KHz 

(1 秒 当たり 2600 バ イト の メモ リ を 消費 ) 

frq= ニ 2 の 時 7.8KHz 

(1 秒 当 た り 3900 バ イト の メモ リ を 消費 ) 
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frq=3 の 時 10.4KHz 

(1 秒 当たり 5200 バ イト の メモ リ を 消費 ) 

frq 三 4 の 時 15.6KHz 

(1 秒 当 た り 7800 バ イト の メモ リ を 消費 ) 

le… 配 列 の 添え 字 0 か ら の 長 さ る (バイ ト 数 ) 

char 型 配列 の 場合 …… 最 大 値 は , 宣言 し た 配列 の 値 十 1 

int 型 配列 の 場合 …… 最 大 値 は , (宣言 し た 配列 の 値 十 1) X 4 
float 型 配列 の 場合 … 最 大 値 は , (宣言 し た 配列 の 値 寺 1)※8 

















a_rec 関数 は , pcm デー タ を 配列 に 格納 し ます 。 従っ て , あら か じ め 配 列 を 用 意 し て お く 必 要 が 
あり ます 。 この 配列 は 数 値 型 の 一 次 元 配 列 で す の で , 配列 名 を "pcm" と すれ ば , 次 の 三 つ の 型 が あ 
が まず 。 

1 . dim char pcm (Tn) n 三 配列 の 数 
2. dim int pcm (n) 
3. dim float pcm (n) 

char 型 の 場合 に は , 一 つの 配列 で 1 バイ ト , int 型 の 場合 に は 一 つの 配列 で 4 バイ ト , float 型 
で は 8 バイ ト の デー タ が 格納 出来 ます 。 

サン プリ ング 周波 数 を 最大 の 15.6KHz に 設定 し た 場合 、1 秒間 の 録音 で 7800 バ イト の メモ リ を 
消費 する の で , "dim char pcm (65535) "と 配列 宣言 し た 場合 に は , 65536 バ イト /7800 バ イト 玉 
8 秒間 の 録音 が 可能 で す 。int 型 で 同じ 配列 を 宣言 すれ ば 4 倍 の 32 秒 間 、float 型 で は 8 倍 の 64 秒 間 
の 録音 が 可能 で す 。 し か し , "dim float pcm (65535) "と いう 配列 を 宣言 し た 場合 、 こ れ だ け で 
512K バイ ト の メモ リ が 使わ れる こと に な り ま す 。 

引数 le は , 用 意 し た 配列 の 数 の 内 , 何 個 の 配列 ( 何 バ イト 分 ) を 使う か を 決め ます 。 例 えば , 
"dim char pcm (65536) "と いう 配列 を 用 意 し て , "a rec (pcm, 4 、 32767) "と すれ ば 4 秒間 
の 録音 と いう こと に な り ま す (32768 バ イト /7800 バ イト 王 4)。"dim int pcm (65535) "と し た 場 
合 は , 配列 の 数 は 65536 個 で す が , バイ ト 数 は 65536X4= ニ 262144 バ イト と な り , le の 最大 値 は 
262144 と な り ま す 。 

次 は , 再生 を 行う た め の 関数 「A PLAY」 で す 。 

【A_PLAY】 





書 式 a play (na, frq, md, le) 





引 数 na…… pcm デー タ を 格納 する 数 値 型 の 一 次 元 配列 の 名 前 
int frq, md, le 

frq…… サン プリ ング 周波 数 

frq 三 0 の 時 3.9KHz 

(1 秒 当 た り 1950 バ イト の メモ リ を 消費 ) 

frq 三 1 の 時 5.2KHz 
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(1 秒 当たり 2600 バ イト の メモ リ を 消費 ) 

frq= 2 の 時 7.8KHz 

(1 秒 当たり 3900 バ イト の メモ リ を 消費 ) 

frq= テ 3 の 時 10.4KHz 

(1 秒 当 た り 5200 バ イト の メモ リ を 消費 ) 

frq 三 4 の 時 15.6KHz 

(1 秒 当たり 7800 バ イト の メモ リ を 消費 ) 

md…… 出力 モー ド 

md=0 の 時 出力 し な い 

md=1 の 時 左 チ ャ ン ネ ル の み 出 力 

md 2 の 時 右 チ ャ ン ネ ル の み 出 力 

mdー3 の 時 左右 の チャ ン ネ ル か ら 出 力 

le…… 配列 の 添え 字 0 か ら の 長 る (バイ ト 数 ) 

char 型 配列 の 場合 …… 最大 値 は , 宣言 し た 配列 の 値 十 1 

int 型 配列 の 場合 ……… 最大 値 は , (宣言 し た 配列 の 値 十 1) X 4 
float 型 配列 の 場合 …… 最大 値 は , (宣言 し た 配列 の 値 填 1)X8 














第 3 一 65 図 は , 録音 , 再生 を 行う プロ グラ ム で す 。 画 面 の 指 が に し た が っ て 実行 し て 下さい 。 
も ちろ ん , 音声 入力 端子 に は ラジ カセ ャ 等 を 接続 し て お 〈 必 要 が あり ます 。 





10 /* a_rec & a_play test 

29 int frq, le, md 

39 str k 

49 dim char pcm(65535) 

59 input" 録 音 周波 数 (0 一 4 ) ”":frq 

69 print" 録 音 を 始め ます 。 何 か キー を 押し て 下さ い 。" 
79 k=inkey$ 

89 a_rec(pcm,frq,55535 ) 

99 while 1 

199 input" 再 生 周 波数 (0 一 4 ) "jifrq 

119 input" 再 生 す る バイ ト 数 (1 一 65536) "jle 
129 print" 再 生 を 始め ます 。 何 か キー を 押し て 下さ い 。”" 
130 k=inkey$ 

140 a_play(pcm,frq,3,le) 

159 print" も う 一 度 再 生 し ます 。 (Y グ N)“" 
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160 k=inkey$ 

170 if k<>" ア y” and k<>"Y” then break 
189 endwhile 

199 end 





第 3 一 65 図 オー ディ オ 関 数 サン プル プロ グラ ム 


10: コメ ント 文 
20 一 30 : 変数 宣言 
40 : pcm デー タ を 格納 する 配列 の 宮 言 
50 : 録音 周波 数 の 入力 
60: メッセ ー ジ を 画面 に 出力 
70 : 何 が キー が 押 き れる まで 待つ 
80 : 配列 pcm に 先程 入力 し た 周波 数 の pcm デー タ を 65536 バ イト 分 格納 する 
90 : 180 行 まで の 間 を 無限 ルー プ 
100 : 再生 周波 数 を 入力 
110 : 再生 する バイ ト 数 を 入力 
120: メッ セー ジ を 画面 に 出力 
130 : 何 カ か キー が 押さ きれ る まで 待つ 
140 : 配列 pcm の 中 の pcm デー タ を 先程 入力 し た 周波 数 で 指定 バイ ト 数 分 を 左右 の チャ ン ネ 
ル か ら 出 力 する 
150: メッ セー ジ を 画面 に 出力 
160 : 何 か が キー が 押 る れる まで 待つ 
170 : 押 き れ た キー が 「[Y] キー 以外 な ら ば 190 行 へ 飛ぶ 
180 : 90 行 へ 戻る 


品 | FM 音源 の 制御 (MUSIC.FNO) 


X68000 に は , 8 重 和 音 の ステ レオ FM 音源 の LSI が 内 蔵 さ きれ て お り 5, MUSIC.FNC と し て 外 
部 関数 が 用 意 き れ て いて , この ハー ドウ エア を 使用 する こと が 出来 ます 。 し か し , この LSI が あ 
まり に も 機能 が 豊富 すぎ て , 使用 に 当たっ て は BASIC の 関数 と し て は 不適 切な ほど 内 部 を いじ 
れる よう が 関数 も あり ます 。 

実際 の と ころ , 以前 まで の FM 音源 の 主流 どっ た YM2203 と いう LSI の マニ ュ ア ル は , 本 の よう 
に 分 厚い 物 が 付い て きま し た 。 逆 を 言え ば, それ ほど FM 音源 と 言う の は 面倒 な も の な の で す 。 
従っ て ここ で は , 一 通り 関数 説明 を し て 実際 に 曲 を 演奏 する 手順 を 解説 し て いき ます 。 
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( a ) FM 音源 の 関数 


【M_ALLOC】 


トラ ッ ク バ ッ フ ァ を 確保 し ます 。 ト ラッ ク 内 の デー タ は , ク リ ア き され ます の で 注意 し て 下さ い 。 





書 式 | mf=m alloc (t, $) 





引 数 | char t,int Ss 
も …… トラ ッ ク 番 号 (1 一 80) 
に 要 和 の トラ ッ ク サ イズ (1 一 65536 バ イト ) 





戻り 値 | int mf 
戻り 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 














【M ASSIGN】 


FM 音源 の 各 チ ャ ン ネ ル に , ト ラッ ク の 割り 付け を し ます 。 和 複数 の チャ ン ネ ル に 同一 の トラ ッ ク 
を 割る 当て る と , それ ぞ れ 同じ 楽譜 を 演奏 し ます 。 ま た ., 複数 の トラ ッ ク を 一 つの チャ ン ネ ル に 


割り 当て る と , 一 番 最 後に 設定 され た トラ ッ ク の 楽譜 を 演奏 し ます 。 デ フォ ルト 値 は , 


チャ ン ネ ル が 1 か ら 8 ト ラッ ク に 対応 し ます 。 


1 か ら 8 





書式 mf ニ m assign (Cc、1) 





引 数 char c, t 
eee チャ ン ネ ル 番 号 (1 一 8) 
て ……… トラ ッ ク 番 号 (1 一 80) 





戻り 値 | int mf 
戻り 値 mf は , 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 














【M CONT】 


c1 か ら c8 で 指定 され た チャ ン ネ ル に お いて , 一 時 停止 し た 演奏 を 再開 し ます 。 チャンネル を 全 


て 省略 する と 現在 一 時 停止 し て いる 全て の チャ ン ネ ル の 演奏 を 再開 し ます 。 





| * 式 mf ニーm cont (c1, c2, c3, c4, c5, c6, C7, C8) 
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char 








int mf 
戻り 値 mf は , 正常 の 時 は 0. エラ ー の 時 は 一 1 を 返し ます 。 








【M FREE】 
指定 され た トラ ッ ク の 残り バイ ト 数 を 返し ます 。 





n 三 mm free (t ) 








戻り 値 nm は , トラ ッ ク の 残り バイ ト 数 を 返し ます 。 














【M_INIT】 
FM 音源 (トラ ッ ク デ ー タ , 音色 ) を 初期 化し ます 。 





minit ( ) 





な し 





な し 











【M_PLAY】 
c1 か ら c8 で 指定 きれ た チャ ン ネ ル に 割り 当て られ た トラ ッ ク デ ー タ を 演奏 し ます 。 チ ャ ン ネ 
ル を 全て 省略 する と , 全 チ ャ ン ネ ル を 演奏 し ます 。 





書 : 式 mf 三 m play (c1, c2, c3, c4。 c5, c6, c7, c8) 


トー | 


引 数 | char 








戻り 値 | int mf 
戻り 値 と し て は , 正常 の 時 は 0, エラー の 時 は 一 1 を 返し ます 。 
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【M_STAT】 

指定 され た チャ ン ネ ル が 演奏 中 か どう か 調べ , 演奏 中 な ら 1, そう で な けれ ば 0 を 返し ます 。 
m stat ( ) の 場合 は , 返さ れる バイ ト 値 の ビッ ト 0 一 ビッ ト 7 が , チャ ン ネ ル 1 一 8 に 対応 し 
人 ま Ya 





書式 | mf=m stat (c) 




















引 数 char C 
(CH チャ ン ネ ル 番 号 (1 一 8) 
回 本 
戻り 値 | int mf 
戻り 値 と し て 0 な ら 停 止 中 、 1 な ら 演奏 中 、 エ ラー の 時 一 1 を 返し ます 。 
【M_STOP】 


cl か ら c8 で 指定 され た チャ ン ネ ル の 演奏 を , 一 時 停止 し ます 。 チ ャ ン ネ ル を 全て 省略 する と, 
全 チ ャ ン ネ ル の 演奏 を 一 時 停止 し ます 。 





書 式 mf 三 m stop (c1, c2。 c3。 c4、 c5, c6, C7, C8) 





引 数 char 





戻り 値 | int mtf 
戻り 値 と し て は , 正常 の 時 は 0. エラ ー の 時 は 一 1 を 返し ます 。 














【M TEMPO】 
テン ポ を モッ ト し ます 。 


] 


書式 mf 三 m tempo (te) 








引 数 char te 
te は , 32 一 200 の 範囲 で す 。 





戻り 値 | int mf 
戻り 値 と し て は , 正常 の 時 は 0. エラ ー の 時 は 一 1 を 返し ます 。 
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【M TRK】 
MML に よる 楽譜 デー タ を トラ ッ ク に 書き 込み ます 。 





書式 mf=m trk (t, st) 
半 
。 引 数 | char t, str st 
3 ers トラ ッ ク 番 号 (1 一 80) 


| St…MML (ミュ ー ジ ッ ク マ クロ ラン ゲー ジ ) デー タ 


5 戻 9 値 int mf 
層 S 戻り め 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 1 を 返し ます 。 














隊 計 








m trk 関数 で 使用 する MML (Music Macro Language) に は , その 名 の 通り 音楽 的 な 文法 を 
記号 化し た 言語 で す 。 こ の 記述 は , 文字 列 型 変数 に 代入 する か " (引用 符 ) で 囲ん だ 文字 列 を 直接 
関数 に 記述 する か の どちら か で す 。 MML に 使用 きれ る 記号 の 文法 は 次 の 通り で す 。 MML は , 大 
文字 で も 小文字 で も 構い ませ ん 。 
⑥ 音程 に 関す る 記号 


AG で eee AB,C… は , ラ , シ , ドー ソ (へ 長調) に 対応 し ます 。 そ の 後に 』 まだ は 十 
を 付け る と 半音 上 が り , 一 を 付け る と 半音 下がり ます 。 
00 一 08…( の (il… オォ オク ター プ ブ の 指定 で , その 後 の 0 一 8 の 数 字 が 高き を 表し ます 。 数字 を 省略 


する と , この 前 に 設定 し た オク ター ブ と みな され ます 。 デ フォ ルト 値 は 04 で 
す 。 なお, オク ター ブ 0 で は C, C# D は 使え ず が 。 オクターブ 8 で は C, C 
# D 以 外 は 使 を ませ ん 。 
オク ター ブ を 一 つ 上 げ ま す 。 
オォ オク ター プ ブ を 一 つ 下 げ ま す 。 
〇 休 符 に 関す る 記号 
R1 一 R64…… 休 符 を 指定 し ます 。 デ フォ ルト 値 は R4 で す 。 
〇 テン ポ に 関す る 記号 
T32 一 200… 全 体 の テン ポ を 設定 し ます 。 デ フォ ルト 値 は , T120 で す 。 
〇 長 さ に 関す る 記号 
L 1 一 L64…… 音 符 の 長き を 決め ます 。 葉 1 を 全音 符 (4 拍 ) と し , 以下 の 音 の 長き は 1 数 
値 と な り ま す 。L64 が 最短 で , 64 分 音符 に な り ま す 。 デ フォ ルト 値 は L4 で 
。 
数 字 1 一 64…… 音 符 や 休 符 の 後に 付け ,L の 指定 に か か わり な くそ の 音 の 長き だ け を 変更 し 
ます 。 音符 や 休 符 の 長き を 省略 し た 場合 は .、 その 前 の し の 設定 値 に な り ま す 。 
。 (ピリ オド )… 音 符 や 休 符 の 後に 付け , その 長き を 1.5 倍 に し ます 。 二 つ 続 ける と , 1.75 倍 に 
な り ま す 。 
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(⑯⑨ 


Q1 一 Q 8…… 1 音 中 で , 実際 に 音 を 出す 割合 を 設定 し ます 。 1 一 8 の 数 字 に より , その 割 
合 は 1/8 一 8/8 (割合 = 1) まで 変化 し ます 。 デ フォ ルト 値 は Q8 で す 。 

ecoax7cnvenernsoi 前 後 の 音 を と つ な ぎ ま す (タイ )。 音色 に よっ て は , この コマ ンド を 連続 し て 使 
う と , 音 が 小さ く な り ま す 。 

ユー{ 164… 指 定 き され た 長き の 又 分 音符 を , { } 内 の 音色 デー タ の 個数 で 等 分 し た 音 の 長 
き で 出力 し ます 。 分 割 し た 音 の 長 さ が , 64 分 音符 より 短い と エラ ー に な り ま 
す 。 ま た , 連 待 が 増加 (12 連 待 な ど ) する と , テン ポ に 誤差 が 出る 場合 が あ 
り ま す 。 また, { ) 内 で し, Q 等 の 音符 の 長き る を 変え た る コマ ンド を 使用 する 
と ,、 エ ラー と な り ま す 。 

@L1 一 @L192… 音 の 長 さき を 短く 指定 し ます 。 全音 符 を 192 の 長 さ る として, 実際 の 長き を 指定 し 
ます 。 デ フォ ルト 値 は 、@L48 (L4 と 同じ ) で す 。 

音量 に 関す る 記号 

V0 一 V15……… 音量 を 設定 し ます 。 デ フォ ルト 値 は V8 で す 。 

@V0 一 @V127…V コ マン ド と 関係 な く 音 量 を 細か く 設 定 し ます 。 

繰り 返し に 関す る 記号 


| En | …… | : nm と: | の 間 を n 回 繰り 返し ます 。n は 1 一 256 で , 省略 値 は 2 で す 。 

| emo 繰り 返し の n 回 目 で , 演奏 すべ き 楽 譜 デ ー タ を 指定 し ます 。n は 1 256 で 
す 。 

音色 に 関す る 記号 


@1 一 @200…… 音色 を 指定 し た 番号 の も の に し ます 。 デ フォ ルト 値 は @ 1 です 。 音色 番号 は 
第 3 一 66 図 に 示す 通り で す 。 


その 他 の 記号 
8 Pcswoa OPM の レジ スタ を 直接 設定 し ます 。 
人 esegcersgskd レジ スタ 番号 
Reedgasspx デー タ 
た だ し , &H01,、&H10, &H11, &H12、&H14 の レジ スタ 番号 は 使え ませ 
ん 。 


@W1-@W64… 指 定 き され た 長き だけ, 現在 の 状態 を 維持 し ます 。 た だ し , Y コ マン ド で 
KEY ON/OFF し た 後 で の ろ 有 効 で す 。 省略 値 は その 前 の し の 値 と 同じ 
に な り ま す 。 デ フォ ルト 値 は 、 @W4 で す 。 











1. A.PIANO 2. H.PIANO 3. E.PIANO 4. CLAVINET 
5. CELESTA 6. CEMBALO 7. A.GUITAR 8. E.GUITAR 
9. W.BASS 19.E.BASS 11.BANJO 12.E.GUITAR 
13.HARP 14.KOT0 15.P.0RGANI 16.P.ORGAN2 
17.E.ORGAN 18.ACCORDION 19.VIOLIN 29.CELLO 

21.STRINGS1 22.STRINGS2 23.PIZZICAT0O 24.VOICE 

25.CHORUS 26.GLASS HARP 27.WHISTLE 28.PICCOLO 
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29.FLUTE 39.0BOE 31.CLARINET 32.BASS0ON 
33.SAXPHONE 34.TRUMPET 35.HORN 36.TROMBONE 
37.TUBA 38.BRASS1 39.BRASS2 49.HARMONICA 
41.0CARINA 42.RECORDER 43.SAMBA WHISTLE 44.PANFLUTE 
45.SNARE DRUM 46.RIMSHOT 47.BASSDRUM 48.T0M-TOM 
49.TIMPANI 59.BONGO 51.TIMBALES 52.TRIANGLE 
53.COWBEL 54.TUBLER BELL 55.STEEL DRUM 56.GLOCKEN 
57.VIBRAPHONE 58.MARIMBA 59.H-H CLOSE 69.H-H OPEN 
61.CYMBAL 62.SYN LEAD1 63.SYN LEAD2 64.AMBULANCE 
65.STORM 66.LASER GUN 67.GAME SE1 68.GAME SE2 











第 3 一 66 図 音色 の 種類 


【M_ VGET】 
音色 デー タ を 配列 に 読み 込み ます 。 戻り 値 と し て は 。 正常 の 時 は 0, エラー の 時 は 1 を 返し 
きま 示 。 





ー イ 二 = 





m vget (Vo, ca) 


書 式 








char (vo), char (4, 10), 配列 名 (ca) 





int 











【M_VSET】 
配列 に 設定 され て いる 音色 デー タ を , 指定 され た 音色 番号 の メモ リバ ッ フ ァ に 登録 し ます 。 戻 
り 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 











書 式 | m vset (vo, ca) 
| 
引 数 | char (vo), char (4. 10), 配列 名 (ca) 
| 
戻り 値 | int 














( b ) FM 音源 関数 を 使っ て みる 


それ で は , 実際 に 今 まで に 説明 し て きた 関数 を 実際 に 使用 し て 曲 を 演奏 る せ て み ま す 。 第 3 一 
67 図 を 打ち 込ん で 下さ い 。 
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19 str a[255] 

20 m_init() 

390 m_alloc(1,2999) 

49 m_assign(1.1) 

50 m_trk(1,“q7 @1 v19 o3 t199") 

99 a="cdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcr”" 
139 m_trk(1,a) 

179 m_play() 

189 end 











第 3 一 67 図 何 の 曲 ? 

この プロ グラ ム で は , まず 最初 に MML の 記述 用 の 文字 型 変数 a を 255 文 字 に 確保 し て 宣言 
て いま す 。 次 に , FM 音源 の 初期 化 を し て いま す 。 次 の , m_alloc と m assign は ペア の よう な も 
の で , トラ ッ ク バ ッ フ ァ を 確保 し 各 チ ャ ン ネ ル に トラ ッ ク を 割り 付け ます 。 次 に 演奏 する 曲 の 諸 
条件 を トラ ッ ク 1 に 書き 込み ます 。 これ は , 90 行 と 130 行 と で 実行 し て いる 音符 デー タ の 書き 込み 
と 一 緒 に 実行 し て も いい の で す が , 音符 デー タ と テン ポ , 楽器 .、 オク ター ブ 等 の 諸 条 件 の 設定 と 
は 分 けた 方 が わか りや すい デー タ の 記述 に な り ま す 。 ト ラッ ク バ ッ フ ァ が いっ ぱい に な る まで は 
次 々 に トラ ッ ク バ ッ フ ァ へ 書き 込む こと が 出来 ます 。 そ し て , 170 行 で めで た く 曲 の 演奏 と た とい うこ 
と に な り ま す 。 

" 峠 の 歌 が …… ? と 思わ ず 口 に 出 て きそう な ビ ピアノ の 演奏 に な っ た と 思い ます 。 こ の プロ グラ ム 
は 行 番号 が 飛 々 に な っ て いま す が , 次 に 色々 と 追加 し て いく た めで すか ら , その まま の 行 番号 で 
打ち 込ん で 下さ い 。 

今 , 実行 し た の は 1 音 の 演奏 で す が , X68000 に 内 蔵 さ きれ て いる FM 音源 LSI は , 8 音 ま で 同時 
に 出す こと が 出来 ます 。 星 の 歌 が …… と て くれ ば 輪 唱 ほ いう こと に な り ま す 。 も う 1 音 追 加 し て み 
まし ょ う 。 第 3 一 67 図 の プロ グラ ム へ 次 の 第 3 一 68 図 の よう に リス ト を 追加 し て 下さ きい 。 





19 str a[255], bE2553 

20 m_init( 

39 m_alloc(1,2000) : 欠 4 oc (の 全休) 

4 mm_aSSign(1,1 ) : 生 な SS 多 穫 《 の 2) 

59 m_trk(1,"q7 @l v19 o3 t199") 

6 mtrk(Z. "qa イ 7 全 | Y19 o4 も 18 お うう 

99 a="cdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcFFrrrF+f" 
1 69 も デイ チ TTFTTCd6fed で re 了 fgggfercFcFCrcrc8cBd8d8e8e8f8f8edcr" 
139 m_trk(l,a) 

1 衝 才 : 拓 キャ ド 《2 も} 
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179 m_play() 
189 end 





第 3 一 68 図 2 重奏 に する 


この プログ ラム を 実行 し て , 感動 の 涙 が 出る 方 ああ る か と 思い ます 。 網 掛け の 部 分 を 追加 し た 
の は , まず トラ ッ ク バ ッ フ ァ を も うぅ 一 つ 追 加 し て , その トラ ッ ク を チャ ン ネ ル 2 に 割り 付け まし 
た 。 こ れ で , 2 チャ ン ネ ル (2 音 ) を 使う こと が 出来 る よう に な り ま し た 。 あ と は 先程 の 要領 で , 
文字 列 型 変数 b に 音 譜 デ ゲー タ を 書き 込み トラ ッ ク 2 へ 送っ て や れ ば いい の で す 。 

も う 少 し 凝っ て み ま す 。 輪 唱 も 3 重 に し て みた ら ど う で し ょ うか 。 第 3 一 68 図 の プロ グラ ム に 
第 3 一 69 図 の よう に リス ト を 追加 し て 下さ い 。 





19 str a[255],b[255 ] 所 5 外 

29 m_init() 

39 m_alloc(1,2999):m_alloc(2.2000) :: な oc で 3 2 人 9 参 き う 
49 m_assign(1,1):m_aasign(2, 2) : 開 2 如 生 @ 有 負え 3 33 

59 m_trk(1."q7 @1 v19 o3 t199") 

69 m_trk(2,"q7 @l v19 o4 t199”) 

79 逢 -trkK で 397"q7 8 vi9 o5- 96”) 

99 a="cdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcrrrrrrrrrrrrredc" 
199 b="rrrrrrrrcdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcrrrrredc" 
118 cmPrFrFFTYTFrTYTTFTCdefedcrefgagfercrcrcrcrc#c8d8d8e8e8f8f8edc” 
139 m_trk(1,a) 

149 m_trk(2,b) 

1502 基 EtFk(3j9 

_179 m_play() 

189 end 














第 3 一 69 図 輸 唱 


も う 完 璧 な 峠 の 歌 に な っ て し まい まし た 。 楽 器 の 弾け な い 人 に と っ て は 非常 に 心強い 味方 で す 
ね 。 も う ヤ ミツ キ に な っ た 気持 ち で , 第 四 音 を 追加 し て み ま し ょ う 。 第 四 音 は ベー スパ ー ト に し 
て み ま す 。 第 3 一 69 図 を 第 3 一 70 図 の よう に し て 下 き い 。 





19 str a[255],b[255],c[255] 朱 2 

29 mm_init() 

39 m_alloc(1,.2999):m_alloc(2.2999):m_alloc(3,2999) 
40 m_asSsign(1,1):m_assign(2,2):m_assign(3, 3) = 竹光 多 和 秦 を を 2 
59 m_trk(1."q7 @1 v19 o3 t199”) 

69 m_trk(2,“"q7 1 v19 o4 t199") 
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79 m_trk(3,."q7 @1 v19 o5 t199”) 

ま 衝 生ま と 年 参 竹 休 て ち 53 手 克 クラ 

99 a="cdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcrrrrrrrrrrrrredc" 
199 b="rrrrrrrrcdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcrrrrredc” 
119 c="rrrrrrrrrrrrTTTFTcdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edc”" 
1 衝 すそ で する 9 る: 5 移 び る 了 条 名 竹 あ ま と セ 邊 @ 多 な で 子 で する で きど と で る です で エチ テ 

139 m_trk(1,a) 

149 m_trk(2,b) 

159 mm_trk(3,c) 

1 な の 生 - も r を も ます 

179 m_play() 

189 end 














第 3 一 70 図 ベー スパ ー の 追加 


FM 音源 関係 の 関数 の 説明 を し て きま し た が , 基本 的 に は これ だ け で か な り 原 音 に 近い 音 が 出 
て し まい ます か ら , 夢中 に な っ て 楽譜 ど コ ユ ピ ー さ れる 方 も 多い と 思い ます 。 


* 員 = スプ ライ ト 関 数 





X68000 に は スプ ライ ト 機 能 が あり , 自分 で 定義 し た キャ ラク タ を 高速 か つ ス ムー ズ に 移動 させ 
る こと が 可能 で す 。 こ の スプ ライ ト 機 能 を X-BASIC 上 で 使う た め の 関数 群 が 「sprite. fnc」 で 
す 。 


人 @ ス プラ イト 画面 


テキ スト , グラ フィ ッ ク に 専用 の 画面 が あっ た の と 同様 に . スプ ライ ト パ タ ー ン を 表示 する 専 
用 の 画面 が スプ ライ ト 画 面 で す 。 X68000 に は スプ ライ ト 画 面 が 0 か ら 127 ま で の 128 面 あり ,1 枚 
に つき 一 つの スプ ライ トバ パター ン を 表示 出来 る の で , 画面 上 に は 最大 で 128 個 の スプ ライ トバ パ ター 
ン を 表示 出来 る こと に な り ま す 。 ただし, 同じ 水平 位置 に は 最大 で 32 個 し か 表示 出来 ませ ん 。 

128 枚 の スプ ライ ト 画 面 に は , 0 か ら 127 ま で の 番号 が つい て いて , 各 面 を プレ ー ン 0 , プレ ー ン 
1, プレ ー ン 2 …… プレ ー ン 127 と 呼び ます 。 複数 の プレ ー ン を 表示 する 時 に は , プレ ー ン 番号 の 
小さ きい プレ ー ン 上 の パタ ー ン か ら 手 前 に 表示 され ます (第 3 一 71 図 )。 

また, テキ スト , グラ フィ ッ ク 画 面 と の 表示 の 優先 順位 は X-BASIC で は 手前 か ら ス プラ イ 
ト ・ テ キス ト ・ グ ラフ ィ ッ ク 画 面 の 順 で 表示 され ます 。 
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プレ ー ン !27 














第 3 一 71 図 スプ ライ ト 画 面 


@⑱ ス プラ イト を 使う 
スプ ライ ト 機 能 を 使う 時 の 手順 は 次 の よう に な り ま す 。 





この 手順 を も と に 作成 し た プロ グラ ム が 第 3 一 72 図 で この プロ グラ ム を 見 な が ら ス プラ イト に 
つい て 説明 し て いき ます 。 
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外部 関数 ww 





10 
20 
30 


50 

69 

70 

80 

0 
190 
110 
129 
130 
140 
159 
169 
179 
189 
190 
200 
210 
220 
230 
240 
259 
269 
270 
280 
290 
390 
319 
320 





/* sprite test1l 
int x,y 


Screen 1,3,1,1 


Sp_init() 
SDp_disp(1) 
sp_def(1,pat,1) 


40 dim chasF pat(255)= て 1。 1。1。 1。1.1。 41, 1。 1。 1.1。 1。 1 1 1, 


2 2 2 の 2 2 2 2.2.2. 2.2.2。 2.2。 1。 
1.2.3,.3,.3,3,3,3,3,3,3,3,.3,.3,2,1, 
1 2 3. 4.4.4」4.4,」4.4,4,.4,4,.3,2, 1, 
1.2.3, 4.5. 5, 5, 5, 5。 5。 5.5, 4。 3,2。 1。 
1.2.3,4.5,6, 6,.6。6, 6, 6, 5, 4,3,2, 1。 
1.2.3,4.5.6,.7.7,7.7.6.5, 4,3, 2, 1, 
1.2.3,.4.5,.6,7,.9,9, 7,6,5, 4,3, 2, 1, 
1.2.3.4.5,6,.7.9,9,7,6,.5, 4,3,2,1, 
1 2.3,4.5.6,7.7.7.7.6.5, 4.3,2,1, 
1.2,3,4.5,6,6,6,6,6,6,.5,4,3,2,1, 
1.2. 9, 4,.5.5.5,.5,5, 5,.5。 5, 4。3, 2, 1, 
1 2 の 3, 4 4 4.4.4.4,4,.4,.4,.4,.3,2,1, 
1 2.3,.3,3,3,.3.3.3,.3.3.3,.3,3,.2,1, 
の 22 の 2 222。 2。2..2。 2, 1 
1 11.1.1.1.1.1.1,1}) 


sp_color(9,hsv(9,9,0),1) 
sp_color(1,hsv(9, 9, 31 ) , 1 ) 
sp_color(2,hsv(9,31,31), 1 ) 
sp_color(3,hsv(32,31,31),1) 
sp_color(4,hsv(64,31,31),1) 
sp_color(5,hsv(96,31,31), 1) 
sp_color(B,hsyv(128, 31, 31), 1) 
sp_color(7,hsv(169, 31,31), 1) 


Sp_on(1) 
for x=@ to 495 
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330 SpP_move(1,x,256, 1 ) 
349 next 
359 end 

第 3 一 72 図 スプ ライ ト 基 本 サン プル プロ グラ ム 





スプ ライ ト は , 表示 画面 サイ ズ が 768X512 の 時 は 使用 出来 ませ ん 。 従 っ て , 表示 画面 サイ ズ が 
512X512, また は 256X256 に な る よう に 画面 モー ド を 設定 する 必要 が ある た だめ, 30 行 で 画面 モー 
ド の 設定 を 行っ て いま す 。 この 例 で は , 512X512 の 65536 色 モー ド に 設定 し まし た 。 

次 に 200 行 で スプ ライ ト 画 面 の 初期 化 を 行い ます 。 こ の 初期 化 を 行う 関数 が 「SP INIT」 で す 。 


【SP_INIT】 





sp init ( ) 








な し 





り 店 
初期 化 が 終わ っ た ら 210 行 で スプ ライ ト 画 面 の 表示 も ON に し ます 。 
【SP_DISP】 








sp disp (ch) 





char ch 
ch 三 0 の 時 スプ ライ ト 画 面 を 表示 し な い 。 
ch 三 1 の 時 スプ ライ ト 画 面 を 表示 する 。 














これ で , スプ ライ ト 画 面 の 用 意 は 完了 で す 。 い よい よ ス プラ イト パタ ー ン の 定義 に 入り ます 。 
40 行 か ら 190 行 まで が パタ ー ン の デー タ で す 。 一 つの パタ ー ン は 16X16 ド ッ ト で 表 き る れ て , その デ 
ー タ は char 型 の 配列 に 格納 する こと に な っ て いま す 。 配 列 の 数 は 16X16 の デー タ を 格納 する の 
で すか ら , 256 個 用 意 す る こと に な り ま す 。 1 ドット の デー タ は , 0 か ら 15 で 表 き れ そ の 値 が スプ 
ライ ト の パレ ッ ト コ ユー ド に な り ま す 。 こ の パタ ー ン デー タ を 定義 する 関数 が 220 行 の 「sp def」 関 
数 で す 。 
【SP_DEF】 





sp def (pc, na, Ds) 





char pc 

pc…… フ パタ ー ン コー ド (0 一 255) 

通常 パタ ー ン は 256 個 定義 で どき る の で , パタ ー ン に コー ド を 付け て 管理 し ます 。 
この 例 の 場合 の パタ ー ン ュー ド は 1 です 。 
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na…… フ パタ ー ン デー タ を 格納 し て いる 配列 名 
この 例 の 場合 は "pat" で す 。 
16X16 ド ッ ト の パタ ー ン の 場合 の 配列 の 数 は 256 個 .8 X 8 ドット の パタ ー ン の 場 
合 は 64 個 と な り ま す 。 
char ps 
DS…… パタ ー ン サイ ズ 
ps 王 0 の 時 8X 8 ドッ ト の パタ ー ン 
ps 三 1 の 時 16X16 ド ッ ト の パタ ー ン 








8X 8 ドッ ト の パタ ー ン は , 現在 説明 し て いる スプ ライ ト 画 面 で は 使用 出来 ませ ん 。 こ の パタ 
ー ン は , 後 で 説明 する 「 バ ッ ク グ ラウ ンド 」 て で 使用 する も の な の で , 普通 は ps 三 1 と な り ま す 。 

この 例 に は 出 て きま せん が スプ ライ トバ パター ン に 関し て は , あと 二 つ 関 数 が 用 意 き れ て いる の 
で つい で に 覚え て お いて 下 き い 。 




















【SP_CLR】 
書 式 SD clr (Dcs, pce) 
引 数 char pcs, Dce 
pcs…… 先 頭 パ ター ンコ ー ド (0 一 255) 
DCce…… 最終 パタ ー ン コー ド (0 一 255) 
指定 範 胃 の パタ ー ン コー ド に 登録 され て いる パタ ー ン デー タ を クリ ア す る 。 
引数 が 一 つの 場合 は , その パタ ー ン コー ド の デー タ だ け を クリ ア し , 引 数 が すべ 
て 省略 され た 場合 は 0 一 255 ま で の パタ ー ン コー ド の デー タ す べ て が クリ ア さ れる 。 
【SP_PAT】 








書 式 
引 数 


SD Dat (Dc、 na, DS) 








char pc 

DC 2 パ ターン コー ド (0-255) 

na…… フ パパ ター ン デ ー タ を 格納 する 配列 名 

16X16 ド ッ ト の パタ ー ン の 場合 の 配列 の 数 は 256 個 、8 X 8 ドット の パタ ー ン の 場 
合 の 配列 の 数 は 64 個 と な り ま す 。 

char DS 


ps デ 0 の 時 8X 8 ドッ ト の パタ ー ン 
ps 三 1 の 時 16X16 ド ッ ト の パタ ー ン 
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この 関数 は , パタ ー ン コー ド に 登録 きれ て いる パタ ー ン デー タ を 指定 の 配列 の 中 に 格納 する も 
の で す 。 格 納 す る 順 庄 は, スプ ライ ト パ タ ー ン の 左 の 一 番 上 の ドッ ト デ ー タ を 配列 0 に , 右 の 一 
番 上 の ドッ ト デ ー タ を 配列 15 ( 7 ) と いう 順に 配列 255 (63) まで 格納 し て いき ます ( ( ) 内 
は 8X 8 ドッ トバ パタ ー ン の 場合 )。 

ちょ っ と 寄り 道 を し まし た が , これ で スプ ライ トバ パタ ー ン の 定義 は 完了 で す 。 次 は , パパ ター ン 
の 色 を 決め ます 。 

グラ フィ ッ ク で 256 色 モー ド の 時 は , パパ レッ トコ ー ド が 0 か ら 255 ま で あっ て , 各 パ レッ トコ ー 
F ド に カラ ー コ ー ド を 設定 し て 使い まし た が , スプ ライ ト の 場合 は パレ ッ ト ブ ロッ ク と いう も の が 
あっ て 一 つの ブロ ッ ク の 中 の 0 から 15 ま で の パレ ッ ト コ ユ コード に カラ ー コ ー ド を 設定 し ます 。 フ パン 
ッ ト ブ ロッ ク は , 15 個 用 意 き され て いま す の で 65536 色 中 240 色 を セッ ト す る こと が 出来 ます 。 し か 
し , 各 パ レッ トブ ロッ ク の パレ ッ ト コ ユ コード 0 は カラ ー コ ユー ド 0 (透明 ) に モッ ト し て お く 〈 必 要 が 
ある の で , 実際 に は 225 色 し か 扱え を ませ ん 。 ス プラ イト パタ ー ン に 色 を モッ ト す る 場合 は , この パ 
レッ トブ ロッ ク て で 選択 し ます の で , 一 つの スプ ライ トバ パタ ー ン で は 16 色 まで 使え を る こと に な り ま 
す 。 こ の パレ ッ ト ブ ロッ ク に 色 を も セット する の が 「sp color」 関 数 で す 。 


【SP COLOR】 








ocl 三 sp color (pa, cl、 pb) 








char pa 

pa…… パパ レン レット コ ー ド (0 一 15) 
int cl 

elkeemes カラ ー ュ コー ド (0 一 65535) 
char pb 


Pb…… フ パレ シット ブロ ッ ク の 番号 (1 一 15) 





ocl…… 設 定 前 の カラ ー ュ ー ド 








この 例 で は , パレ ッ ト ブ ロッ ク 1 の パレ ッ ト コ ユー ド 0 に 透明 1 に 白 , 2 に 赤 。 3 に 黄色 4 
に 緑 , 5 に 水色 , 6 に 青 、 7 に マゼンダ を hsv 関数 を 使っ て 設定 し て いま す (230 行 一 300 行 )。 
これ で スプ ライ ト パ タ ー ン の セッ ト が 完了 し た わけ で , 後 は 表示 し て 動か す び だけ で す 。 それ に 
は まず どの プレ ー ン を 使用 する か 決め な く て は な り ま せん 。 こ の 例 で は , プレ ー ン 1 を 使用 する 
だ め , プレ ー ン 1 を 表示 ON に し ます 。 
【SP_ON】 





sp on (pls, ple) 





char pls, ple 








NMRSORRneanepgsesshenesthesengsimeer5ektmasersegeeaeesgndesmvssssessesuman 33、 人 ト 関数 mu 


plS…… 先頭 プレ ー ン 番号 (0 一 127) 

ple…… 最 終 プ レー ン 番 号 (0 一 127) 

指定 範囲 の プレ ー ン の 表示 を ON に する 。 

引数 が 一 つの 場合 は その 番号 の プレ ー ン だ け 表 示し , 引数 が すべ て 省略 され た 場 
合 は 0 一 127 番 まで の プレ ー ン すべ て が 表示 きれ る 。 





310 行 で は , 1 と いう 引数 だけ な の で プレ ー ン 1 だ け 表 示す る こと に な り ま す 。 こ の プロ グラ ム 
で は 使用 し て いま せん が sp on 関数 の 逆 が 「sp_off」 関 数 で す 。 


【SP_OFF】 





書 式 sp off (pls, ple) 
引 数 char pls, ple 

pls…… 先 頭 プ レー ン 番 号 (0 一 127) 

ple…… 最 終 プ レー ン 番 号 (0 一 127) 

指定 範 胃 の プレ ー ン の 表示 を OFF に する 。 

引数 が 一 つの 場合 は その 番号 の プレ ー ン だ け OFF し , 引数 が すべ て 省略 され た だ 
場合 は 0 一 127 番 まで の プレ ー ン すべ で て が 表示 OFF と な る 。 

















スプ ライ ト パ タ ー ン も を 動か みす た め の 関 数 は , 「SP_MOVE」 関 数 で す 。 こ の 関数 を 使う こと に よ 
っ て , スプ ライ トバ パタ ー ン を プレ ー ン に 登録 し て 表示 する こと が 出来 ます 。 


【SP_MOVE】 





書式 spD move (pl、 X, Y, pc) 
| 
引 数 int XY 

ド る EE 表示 位置 の 座標 (一 16 一 1007) 

CE 表示 位置 Y の 座標 (一 16 一 1007) 

スプ ライ トバ パター ン の 左 の 一 番 上 の ドッ ト の 座標 を 表し ます 。 

char pl, pc 

pl…… スプ ライ トバ パタ ー ン を 登録 する プレ ー ン 番号 を 指定 (0 一 127) 
pc…… フ パタ ー ン コー ド (0 一 255) 

















この 例 で は , パタ ー ン コー ド 1 に モッ ト さ れ て いる スプ ライ ト パ タ ー ン を プレ ー ン 1 に 登録 し 
て 表示 Y 座 標 を 256 に 固定 し て , for 一 next 文 で 表示 X 座標 の 値 を 変え て 画面 左 か ら 右 まで 移動 


る させ て いま す (310 行 一 330 行 ) 。 
この sp move 関数 は 手軽 に 使 を る 代わ り に , パパ レッ トブ ロッ ク は 1 に 固定 され て いる た だめ, 画 
面 上 で 65536 色 中 16 色 し か 使え を ませ ん 。 また , X68000 の スプ ライ ト 機 能 に は . スプ ライ トバ パ ター ン 
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の 上 下 左 右 の 反転 モー ド や バッ ク グ ラウ ンド と の 優先 順位 を 決め る こと も 出来 ます が , この sp 
_move 関 数 で は これ ら の 機能 も 使う こと は 出来 ませ ん 。 こ れ ら の 機能 を 使う た ゆめ に は ,「SP_SET」 
関数 を 使い ます 。 こ の 関数 は , sp_move 関数 に 比べ る と 使い 方 が 面倒 で す が , 実際 に は この 関数 
が あれ ば sp _move 関数 な どい ら な いと いっ た 感じ で す 。 


【SP SET】 





Hi sp set (pl、 x、 Y、cd, pr) 








- 引 数 char pl 

Pl…… プ レー ン 番 号 (0 一 127) 

It 丈 。\、 (ed 

*…… 表 示 位 置 X の 座標 (0 一 1023) 

MC 表示 位置 Y の 座標 (0 一 1023) 

sp_move 関数 の 場合 は 、 画面 の 一 番 左上 が (16、16) で す が , この 場合 は (0, 
0) と な り ま す 。 

cd…… スプ ライ ト 設 定 コー ド (0 一 &hcfff) 

スプ ライ ト の 各 設 定 を 指定 する 。 


bit 15 0 の 時 …… 通常 表示 
1 の 時 …… ト 下 反転 表示 





"通常 表示 

1 の 時 …… 諾 右 反転 表示 
bit13 一 bit12 使用 し な い (常に 0) 
bit11 一 bit 8 パレ ッ ト ブ ロッ ク を 表す 
bit 7ーbit 0 パタ ー ン コー ド を 表す 
char pr 
スプ ライ ト 画 面 と バッ ク グ ラウ ンド 画面 と の 表示 優先 順位 を 決め る 。 
pr デ 0 の 時 スプ ライ ト は 表示 し な い 
上 pr 三 1 の 時 手前 か ら BG0, BG1, SP 
| pr 三 2 の 時 手前 か ら BGO、SP、BG1 
pr 三 3 の 時 手前 か ら SP, BGO, BG1 
BGO…… バッ ク グ ラウ ンド 第 0 面 
BG1…… ド バック グラ ウン ド 第 1 面 
SP …… スプ ライ ト 画 面 


bit 14 

















ここ て で 問題 し な る の は , cd の 値 の 求め 方 びと 思い ます 。 例 えば, パパ ターン コー ド 2 に モッ ト し 
て ある スプ ライ ト パ タ ー ン を パレ ッ ト ブ ロッ ク 8 の 色 で 上 下 を 反転 し て 表示 させ る 場合 の 設定 コ 
ー ド は 次 の よう に な り ま す 。 

cd 三 &B1000111100000010 
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外部 関数 www 


第 3 一 73 図 は sp move 関数 と sp set 関数 で , 同じ パタ ー ン を 同じ 座標 に 違う パレ ッ ト ブ ロッ 
ク を 使っ て 表示 る せる プロ グラ ム で す 。 
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/* sp_set test 
screen 1,3,1,1 


int x,y,v,h,pb, pc,cd 


49 dim char pat(255)= て 


9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,9, 9,9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,9, 9, 9, 9,9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9,9,9,9,0,9,9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,9,9,9,9,9, 
9, 9, 9, 9, 9, 9, 9, 1,9,9,9,9,9,9,9, 9, 
9, 9, 9, 9, 9, 9, 9, 1, 1, 9, 9,9,9, 9,9, 9, 
9, 9, 9, 9, 9, 9, 9, 1,3,1,9,09,9,09,9,9, 
9, 9, 9, 9, 9, 9,9,1,3,.3,1,9, 9, 9, 9, 9, 
1111, 1. 1.1.3.4.3, 1, 9,0,.0.0, 
1, 3,3,3,3,.3.3,3,3,4,4.3,1, 9, 0,9, 
1 3 44. 4.4.4.4.4.4,.4,4,3,1,.0, 9, 
1.3.4.4.4,4,4.4,4,.4,4,4,4,3,1,9, 
1 9。 す ,3.3.3.3。3.3, 3。3.9,3。 3 9, 1。 
1。 


9, 9, 9, 9, 9, 9, 9, 9, 9,9,9,9,9,9,9,9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9,9,9,9,9,9,9 
) 

Sp_init() 

sp_disp(1) 

sp_def(1,pat,1) 

sp_def(2,pat,1) 

for i=1 to 15 
sp_color(i,hsv(9,9,31-2*i),1) 
sp_color(i,hsv(9,.31,31-2*i),2) 


next 
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399 sp_color(9,hsv(9, 9, 9), 1 ) 

319 sp_color(9,hsv(9, 9, 9), 2) 

329 sp_on() 

339 input" 反 転 モ ー ド (上 下 ) @ or 1 ":v 
349 input" 反 転 モ ー ド (左右 ) 9 or 1 ”"jh 
359 cd=sp_bit(v,h, 2, 1) 

369 for x=9 to 495 


379 Sp_move(1,x,256, 1 ) 
380 Sp_set(2,x, 256, cd, 3) 
399 next 

409 end 

419 func sp_bit(v,h, pb, pc) 
420 int・bit 

439 v=v*32768 

449 h=h*16384 

450 pb=pb*256 

459 bit=v+h+pb+pc 

479 return(bit) 


489 endfunc 











第 3 一 73 図 sp move , sp set 


0 府 生 居 記 下 秋 
20 : 画面 モー ド を 512※512 の 65536 色 モー ド に 設定 
30 : 変数 宣言 
40 一 210 : スプ ライ ト パ タ ー ン デー タ を 配列 に モッ ト 
220 : スプ ライ ト の 初期 化 
230: ス プラ イト 画面 表示 ON 
240 : パ ター ンコ ー ド 1 に 配列 内 の スプ ライ トバ パタ ー ン デー タ を 定義 
250 : パタ ー ン コー ド 2 に 配列 内 の スプ ライ トバ パタ ー ン デー タ を 定義 
260 一 310 : パレ ッ ト ブ ロック 1 と 2 に カラ ー コ ー ド を 設定 
320 : すべ て の プレ ー ン の 表示 を ON に する 
330 一 340: スプ ライ トバ パタ ー ン を 反転 表示 させ る 場合 は 1 を 入力 
340 : 定義 関数 sp bit (v。 h, pb, pc) を 呼び 出す 
引数 は , 上 下 反 転 。 左右 反転 。 パ レット ブロ ッ ク , パタ ー ン コー ド の 順 で 入力 する 
と cd に 設定 コー ド が 返っ て くる 


192 


aannvnnwuwauwnvmvmvmvwuwmwnwvnvnvnvwuwnenvnvnvwewvneenvnvnvnvrunuvnvsvnvwunusunvevevevn 3-3 2 部 関数 wwww 


360 : X 座標 を 0 か ら 495 ま で 変え る (390 行 まで の ルー プ ) 
370 : パタ ー ン コー ド 1 を プレ ー ン 1 に 登録 し て 座標 (x, 256) に 表示 
380: プ レー ン 2 に 設定 コー ド cd に より 設定 され た スプ ライ ト パ タ ー ン を 登録 し て , 護 
標 (*,256) に 表示 し , この 時 の 優先 順位 SP>BG0>BG1 の 順 と する 
410 一 480 : 定義 関数 sp bit の 定義 
この 関数 は 与 た られ た 引数 に より 設定 コー ド を 計算 し て 返し ます 
この プロ グラ ム で は , 同じ 位置 に 二 つ の 関数 を 使用 し て スプ ライ ト を 表示 し て いま す が , 関数 
の 違い に よっ て 表示 位置 が ずれ る こと に 注意 し て 下さ い 。 
この 他 に , スプ ライ ト の 設定 状態 を 返す 「SP STAT」 関 数 だ あり ます 。 
【SP_STAT】 


EEE 
書 式 stat 王 sp stat (pl, md) 











引 数 | charpl, md 
1 pt…… プ レー ン 番 号 (0 一 127) 
- 読 み 出し デー タ の 選択 
md 三 0 の 時  X ポ ジ シ ョ ン 
md ニ 1 の 時 YY ポジション 
mdー2 の 時 設定 コー ド 
md ニ 3 の 時 画面 優先 順位 (プラ イオ リティ ) 








NT 
戻り 値 int stat 
stat…… スプ ライ ト の 状態 を 返し ます 。 














⑯ バ ッ ク グ ラウ ンド 


バッ ク グ ラウ ンド と は スプ ライ ト の 背景 と な る 画面 の こと で , 512X512 の 時 は 1 面 。 256 メ 256 
の 時 は 2 面 表 示す る こと が 可能 で , 1 画面 に 64 個 X64 個 ( 計 4096 個 ) の パタ ー ン を セッ ト す る こ 
と が 出来 。 各々 の 画面 を 自由 に スク ロー ル す る こと が 出来 ます 。 

バッ ク グ ラウ ンド を 使用 する 場合 に 注意 する こと は , 一 つ は 画面 モー ド を 256X256 に 設定 し た 
場合 に スプ ライ ト パ タ ー ン が 8X 8 の 大 きる に な る の で , パタ ー ン デー タ は 8X8 三 64 個 と な り 
ます 。 従 っ て sp def 関数 で パタ ー ン コー ド を 設定 する 時 に は 、 3 番目 の 引数 を 0 に する 必要 が あ 
り ま す 。 

も う 一 つ は , sp def 関数 で 設定 出来 る パタ ー ン ュー ド は 0 か ら 255 ま で の 256 個 で す が , バッ ク 
グラ ウン ド を 1 面 使う と 0 か ら 191 ま で の 192 個 と な り , 2 面 と も 使用 する と 0 か ら 127 ま で の 128 
個 ま で し か 定義 出来 ませ ん 。 

これ は 。 バ ッ ク グ ラウ ンド に 配置 きれ る スプ ライ ト パ タ ー ン の デー タ を 記 億 し て お く た め に 使 
われ る た めで , この エリ ア を テキ スト エリ ア と 呼び ます 。 テ キス ト エ リア は バッ ク グ ラウ ンド を 
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2 面 使う 場合 は 二 つ , 1 面 使う 場合 は 一 つ 確 保 ミ れ ま す 。 
また , 一 つの テキ スト エリ ア に は 64 個 X64 個 の パタ ー ン を 設定 出来 , パタ ー ン の 位置 を 指定 す 
る こと が 出来 ます 。 





く <512X512 モ ー ド > 








No.0 





No.0 





16※16 





16※16 





192 個 





く <256X256 モ ー ド > 








No.0, 1 





No.0、1 





8X8 


1 





16 メ 16 





1 面 の み 使 用 一 192 個 
2 面 と も 使用 一 128 個 








バッ ク グ ラウ ンド を 使用 し た な サンプ ルプ ログ ラム が 第 3 一 74 図 で す 。 こ の プロ グラ ム は 。 256x 
256 モ ー ド で BG (バッ ク グ ラウ ンド ) を 2 面 使用 し て 各々 違う 方 向 ヘ スク ロー ル さ せる も 5 の で 
す 。 こ こ か ら は , この プロ グラ ム に 基づい て 実際 に BG を 使う た め の 説明 を し て いき ます 。 





10 /* back ground test 

29 int x,y,i,Y,h, pb, pc, cd, mx,my 

3 /* sprite pattern data 

49 dim char pat(255) = て 

59 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 
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69 9,19,19,19,19,19,19,19,19,19,19,19,19,.19,10.9, 


70 9..9.9,.9.9.9.9.9,.9,.9.9.9,9.9.10,9。 
89 9,19,9,8,8,.8,8,8,8,8,8,8,8,9,.19, 9, 
89 Wai029z6) 75 72 75 4. 7 (5 4785 8 19。 0, 
199 9, 19, 9, 8, 7, 6, 6, 6, 6, 6, 6,7,8,.9,19, 0, 
119 9, 19, 9,8,7,6,5,5,5,5,6, 7, 8,9.10, 9, 
120 9,19,9,.8,7,.6,.5,4,4,.5,6,7,.8,.9,19, 9, 
130 9, 19, 9, 8, 7,6,5, 4, 4.5,6,7,8.9,10, 90, 
149 9, 10, 9,8, 7,6,5, 5, 5, 5, 6, 7, 8, 9, 10, 0, 
159 9, 10,9,8,7,6,.6,6,6,6,6,.7,8.9,10, 9, 
169 9.10.9.8.7.7.7.7.7.7.7.7.8.9.10,0, 
170 9, 19,9,8,8, 8,8,8,8,8,8,8,8,9,19, 9, 
180 9,19,9,9.9.9,9,.9,.9,.9,9,9,9,9,19, 9, 
190 9,10,19,19,19,19,19,19,19,19,19, 19,19, 19, 19, 9, 
200 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 0 
210 ) 


229 /* BG1 pattern data 
239 dim char bg1(64)= て 1, 2, 9, 9, 1,2, 9, 9, 


240 1.2.0,. 9,1,2.0,0, 
259 1.2.9, 9,1,2,.0,0, 
260 1.2,.0,0,1,2, 9, 9, 
270 1.2. 9, 9,1,2,0,.9, 
280 1.2.9,.0, 1,2.0,.0, 
290 1.2.9,9, 1,.2,.9,.0, 
300 1, 2, 9, 9,1,2,9,9} 


319 /* BG9 pattern data 
329 dim char bg(64) = て (9, 9, 9, 9, 9,9, 9,0, 








330 9, 9, 9, 9, 9, 9, 9, 9, 
349 9, 9, 9, 9, 9, 9, 9, 9, 
359 9, 9, 9,1,1,9, 09,9, 
359 9, 9, 9, 1, 1, 9, 9, 9, 
370 9, 9, 9, 9,9,9,9,9, 
380 9, 9, 9, 9, 9, 9, 9, 9, 
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399 9, 9, 9, 9, 9, 9,9,9} 
499 Screen 9,3,1,1 

410 Sp_init() 

420 Sp_disp(1) 

439 Sp_on(1) 

449 sp_def(1,pat,1) 

450 Sp_def(2,bg1.0) 

460 sp_def(3,bg,9) 

479 /* palet block set 

480 for i=l to 15 

490 Sp_color(i,hsv(64, 31, 20-i),1) 
509 next 

519 Sp_color(9, 9, 1 ) 

529 Sp_color(9, 9, 2) 

530 Sp_color(1,hsv(128, 29, 39) , 2 ) 
540 Sp_color(2,hsv(128, 20, 20) , 2) 
559 Sp_color(9, 9,3) 

560 sp_color(1,hsv(9, 9, 29) , 3) 
579 /* BG9 set 

580 cd=sp_bit(9, 9,3,3) 

599 bg_fill(1,cd) 

699 bg_set(9, 1,1) 

610 /* BG1 set 

629 cd=sp_bit(9, 9, 2, 2) 

639 bg_fill(9, cd) 

640 bg_set(1,9,1) 

659 /* sprite set 

669 cdssp_bit(9, 9, 1,1) 

679 Sp_set(1,128,128, cd, 3) 

689 /* BG9 & BG1 scroll 

699 while 1 

709 if mx=511 then mx=9 
719 if my=511 then my=9 
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729 mX ニ mmX+]1 :my ニ my+1 
730 bg_scroll(9, 9,my) 
749 bg_scroll(1,mx,9) 
759 for i=9 to 199 : next 
760 endwhile 

770 end 

780 func sp_bit(v, h, pb, pc) 
790 int bit 

800 v=v*32768 

810 h=h*16384 

820 pb=pb*256 

839 bit=v+h+pb+pc 

840 return(bit) 

859 endfunc 











第 3 一 74 図 バッ ク グ ラウ ンド テス ト 


20 : 変数 宣言 
30 一 390 : 各 パ ター ン デ ー タ を 配列 に 格納 
配列 pat 並 通 の スプ ライ トペ パタ ー ン デー タ (16※16) 
配列 bg バッ ク グ ラウ ンド No. 0 用 の パタ ー ン デー タ (8※X8) 
配列 bg1 バッ ク グ ラウ ンド No. 1 用 の パタ ー ン デー タ (8X8) 
400 : 画面 モー ド を 256X256 に する 
410 : スプ ライ ト の 初期 化 
420: ス プラ イト 画面 表示 ON 
430 : プレ ー ン 1 を 表示 ON 
440 一 460 : 各 パ ター ンコ ー ド に パタ ー ン デー タ を 設定 3 番目 の 引数 に 注意 
480 一 560 : 各 パ レッ ト プ ブロック に カラ ー コ ー ド を セッ ト 
580 : 定義 関数 sp bit (Y, h, pb, pc) を 呼び 出す 
引数 は , 上 下 反 転 。 左右 反転 .。 パレ ッ ト ブ ロッ ク , パタ ー ン コー ド の 順 で 入力 する 
と cd に 設定 コー ド が 返っ て くる 
この 場合 , 反転 モー ド は 通常 表示 。 パレ ッ ト ブ ロッ ク 3,。 パタ ー ン コー ド 3 
590 : テキ スト エリ ア に 設定 コー ド で 表 さ る れる デー タ を 満た す 


【BG_FILL】 


| * * bg fill (tx, cd) 











197 


ww 第 3 章 標準 関数 と 外部 関数 





char tx 

Bees テキ スト エリ ア 

512 x512 の 時 0 

256X256 の 時 0 下 

int cd 

cd…… スプ ライ ト 設 定 コ ー ド 
(sp set 関数 参照 ) 











この 例 で は , 580 行 で 得 た 設定 コー ド cd の グー タ で テキ スト エリ ア 1 を 満た し ます 。 ま た , こ 
の 他 に 一 つ ず つの パタ ー ン 位置 を 指定 し て テキ スト エリ ア に セッ ト し て いく 「bg_put」 関数 が あ 
り ま す 。 


【BG_PUT】 





bg put (tx, x、 Y, cd) 





char tx、*。Y 

tx テキ スト エリ ア 
512X512 の 時 0 

256X256 の 時 0。。 昌 

る OO テキ スト X 座 標 (0 一 63) 
Y…… テキ スト YY 座標 (0 一 63) 


cd…… ス プラ イト 設定 コー ド 
(sp_set 関数 参照 ) 








600: バック グラ ウン ド に テキ スト エリ ア を 割り 当て, 表示 を ON に する 。 
【BG_SET】 





bg set (bg, tx i) 





char bg, tx, i 
bg…… バ バック グラ ウン ド No. (0 一 1) 
tx…… テ キス ト エ リア No. (0 一 1) 


0 の 時 表示 OFF 
1 の 時 表示 ON 
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この 例 で は , バッ ク グ ラウ ンド 0 に 先程 モッ ト し た テキ スト エリ ア 1 の デー タ を セッ ト し 表 


2 し ます 。 
620 : 


630 : 
640 : 


660 ・ 


670 : 


690 : 
700 : 
710 : 
720 : 


730 一 740 : 


定義 関数 sp bit (Y, h, pb, pc) を 呼び 出す 

引数 は , 上 下 反 転 , 左右 反転 . パレ ッ ト ブ ロッ ク , パパ ター ンコ ー ド の 順 で 入力 する 
と cd に 設定 コー ド が 返っ て くる 

この 場合 , 反転 モー ド は 通常 表示 . パレ ッ ト ブ ロッ ク 2, パタ ー ン コー ド 2 

620 行 で 得 た 設定 コー ド cd の デー タ で テキ スト エリ ア 0 を 満た し ます 。 

バッ ク グ ラウ ンド 1 に 先程 モ キット し た テキ スト エリ ア 0 の デー タ を セッ ト し 表示 し 
ます 

定義 関数 sp bit (vY、 h, pb, pc) を 呼び 出す 

引数 は , 上 下 反 転 , 左右 反転 , パレ ッ ト プ ブ ロック, パタ ー ン コー ド の 順 で 入力 する 
と cd に 設定 コー ド が 返っ て くる 

この 場合 , 反転 モー ド は 通常 表示 , パレ ッ ト ブ ロッ ク 1, パタ ー ン コー ド 1 
プレ ー ン 1 に 設定 コー ド cd に より 設定 され た スプ ライ トバ ター ン を 登録 し て 座標 
(128, 128) に 表示 し , この 時 の 優先 順位 SP>BG0>BG1 の 順 と する 

760 行 まで の 間 を 無限 ルー プ 

変数 mx の 値 が 511 を 越 を た ら mx を 0 に する 

変数 my の 値 が 511 を 越え を たら my を 0 に する 

BC の スク ロー ル 座 標 を 1 ずつ 増やす 

mx スク ロー ル X 座標 

my… スク ロー ル Y 座標 

BG を スク ロー ル さ る せる 


【BG_SCROLL】 








書 式 bg scroll (bg, x, ) 

引 数 | charbg 
bg…… バッ ク グ ラウ ンド No. (0 一 1) 
int X,。 Y 





る COCCO スク ロー ル XX 座 標 

AN スク ロー ル Y 座 標 

各 座 標 の 範囲 は 、 256X256 の 時 0 一 511 
512 512 の 時 0 一 1023 








バッ ク グ ラウ ンド の サイ ズ は , 表示 画面 サイ ズ が 512X512 の 時 は 1024X1024 で , 256X256 の 時 


は 512X512 と な り ま す 。 
この 例 で は , BG0 を 縦 方 向 に スク ロー ル さ きせ BG1 を 横 方 向 に スク ロー ル る せ て いま す 。 


750 : 


スク ロー ル が 速 す ぎる の で 空 ル ー プ で 時 間 稼 ぎ 
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760 : 690 行 へ 戻る 
以上 が ,。 バッ ク グ ラウ ンド を 使用 する た ゆめ の プロ グラ ム の 流れ で す 。 
この 他 に バッ ク グ ラウ ンド に 関し て あと 二 つ の 関数 が あり ます 。 


【BG_STAT】 













stat 王 bg stat (bg, md) 





char bg,。 md 

bg……BG No. (0 一 1) 
md…… 読 み 出 て デー タ の 選択 
md=0 の 時 X 座 標 

md=1 の 時 Y 座 標 

md= ニ 2 の 時 テキ スト エリ ア 
md=3 の 時 表示 の ON/OFF 





int stat 
stat…… バ バッ ク グ ラウ ンド の 状態 を 返し ます 。 











td=bg get (tx, X、Y) 





char tx,、 X。 

tX……… デ 寺 区 ト エ リア 

512 x512 の 時 0 

256 ぶ 256 の 時 0, 1 
Ren テキ スト XX 座標 (0 一 63) 
yaavs テキ スト Y 座 標 (0 一 63) 





引数 で 指定 され た 値 の テキ スト デー タ を 返し ます 。 
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X-BASIC で は , 従来 の BASIC で の ステ ー ト メン ト (命令 な ど ) を 関数 化し た こと を 特長 と し 
て いま す が , 従来 の BASIC で は 繰り 返し 実行 きれ る 処理 を サ プ ブル ー チ ン と し て プロ グラ ム の 人 簡 
略 化 た メモ リ 効 率 向 上 を 実現 し て いま す 。 

X-BASIC で は , 従来 の BASIC で の サブ ルー チン に つい て も 関数 の 形 で 実現 する こと が 出来 
ます 。 定義 関数 に つい て は 第 2 章 で 説明 きれ て いま す が , ここ で は 2 通り の 定義 関数 の 使い 方 に 
つい て , 実際 に プロ グラ ム 中 で どの よう に 使用 きれ て いる か を サン プル プロ グラ ム に よっ て 説明 


引数 , 戻り 値 を 持た な い 関 数 


第 3 一 75 図 は ,. マウ ス を 使っ て グラ フィ ッ ク 画 面 に 色々 な 図形 を 描く こと が 出来 る プロ グラ ム 
で す 。 この プロ グラ ム に は , 二 つ の 関数 が 使わ れ て いま す 。 一 つ は dimwrite.。 も う 一 つ は gwrite 
で す 。 こ の プロ グラ ム に 使用 きれ て いる 関数 に 共通 し て いえ る こと は , どちら の 関数 に も 引数 や 
戻り 値 が な が いと いう こと で す 。 こ れ は , 前 述 の 従来 の BASIC で 使わ れ て いた サブ ルー チン と 同じ 
よう な 使い 方 で す 。 

X-BASIC に は , ロー カル 変数 と グロ ー バ ル 変 数 の 2 種類 の 変数 が 存在 し て いま す 。 一 方 , 従来 
の BASIC に は グロ ー バ ル 変 数 だ けし か あり ませ ん 。 従 っ て, 関数 へ 処理 が 移る 時 に 発生 する 引数 
の 考え 方 や その 結果 と し て 返っ て くる 戻り 値 な ども あり ませ ん 。 サ ブル ー チ ン で は , メイ ンプ ロ 
グラ ム 中 で 使用 きれ て いる 変数 に 数 値 を 入れ て , その 変数 と 同じ 変数 で サブルーチン で て 処理 を し 
て いま す 。 結果 的 に は これ が 引数 ほし な る の で す が , 変数 名 を 何時 で も 何処 で も 覚え て いな けれ ば 
な り ま せん し , 引数 と し て 渡し た 変数 の 内 容 が メチ ャ メチ ャ に な っ て 返っ て くる な どの 被害 も た 
ま に あ り ます 。 

し か し な が ら , な か な か 従来 の BASIC に 慣れ 親しん で いる 人 に は , この 感覚 は 忘れ られ な いで 
し ょ う 。 そ うい っ た 時 に , この プロ グラ ム の よう な 関数 の 使い 方 が 便利 で す 。 








19 screen 2,.9,1,1 
29 int x,y,mx,my,bl,br,count 
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39 dim int tate(19999),yoko(10000) 
49 mouse(9) 

59 mouse(1) 

B9 mouse(4) 

79 msarea(9,9,767,.511) 

89 palet(1,hsv(32,31,31) ) 

99 mhile 1 

199 msstat(x,y,bl,br) 

119 if bl=-1 then dimwrite() 
120 if br=-1 then gwrite() 
139 endwhile 

149 end 

299 func dimwrite() 

210 mSDOS(mxX, my) 

220 count=count+1 

230 yoko(count) =mx 

240 tate(count) =my 

259 endfunc 

269 /* 

279 func gwrite() 

280 int i 

290 if count=9 then count=1 
309 for i=l to count-1 

319 line(yoko(i),tate(i).yoko(ji+1),tate(i+1 ) , 1 ) 
320 next 

330 count=9 

349 endfunc 











第 3 一 75 図 引数 , 戻り 値 の な い 定 義 関数 


き て この プロ グラ ム は , グロ ー バ ル 変 数 と し て int 型 で 。 x, y, mx, my, bl, br, count, 同 
じ く グロ ー バ ル 変 数 で , int 型 の 配列 tate (10000), yoko (10000) を 宣言 し て いま す 。 こ の 中 
で , int 型 の x, y, mx, my, bl, br は マウ ス 関 数 用 に 宣言 し た も の で , プロ グラ ム 中 に マウ ス 
を 使っ て いる 所 で 出 て 来 ま す 。 プ ログ ラム は , 90 行 か ら 130 行 が メイ ンプ ログ ラム と な り , その 前 
は マウ ス の 使用 や その 移動 範囲 や 画面 の 設定 等 の 初期 化 部 分 で す 。 メ イン プロ グラ ム は , while に 


202 


vmemvmmumvnunwnvnunwnvmwmvnemenvnwmvmvwuavwunwnvnunvnvnunvnvwunvmvmumvnunvnvnmvnvnunvnnvnnvnvewvnunmvnnnvrnnewns 3-4 定義 関数 ww 


よる 無限 シー プ で , 同じ 処理 が 無限 に 繰り 返さ れ ま す 。 処理 の 中 身 は マウ ス の 左 ボ タン が 押さ きれ 
た だ ら dimwrite を , 右 ボ タン が 押さ る れ た ら gwrite を 実行 する だ け の も の で す 。 あ まり に も 簡単 な 
メイ ンプ ログ ラム で す が , メ イン プロ グラ ム の 解読 が これ ほど 簡単 な こと も X-BASIC の 特長 で す 。 

それ で は 関数 の 中 へ 入っ て み ま す 。 
dimwrite ( )…… 200 行 か ら 260 行 まで が dimwrite ( ) の 関数 で す 。 こ の 関数 は マウ スカ ー ソ ル 
の ある 絶対 位置 mx、 my を 読み 込ん で , それ ぞ れ 縦横 の 座標 を 入れ て お く 〈 配 列 tate( ), yoko 
( ) へ 配列 の 要素 番号 の count を 一 つ ず つ カ ウン ト ア ッ プ し て , 記憶 きせ て いく も の で す 。 
gwrite ( )…… 270 行 か ら 340 行 まで が gwrite ( ) 関数 で す 。 こ の 関数 は , 今 ま で 著 え られ て いた 
dimwrite ( ) 関数 で の 座標 tate ( ), yoko ( ) を 吐き 出さ せる 関数 で す 。 た だ 吐き 出さ せる の 
で は 面 刀 く な い の で , 最初 の 座標 tate (0) と yoko (0) か ら tate (1) と yoko (1) まで を 線 で 
結び , 次 に tate (1) と yoko (1) か ら tate (2) と yoko (2) まで を 線 で 結び …… と いっ た 具合 
い に count まで 繰り 返さ きせ て いま す 。 

この 二 つ の 関数 の 全貌 が 明らか に な っ た 所 で , プロ グラ ム の 詳細 が 見 えて きた 方 も いる と 思い 


上 詳 上 | 引 あ , 世 り 値 か ある 人 


EER 
3-4- 1 では, 引数, 戻り 値 が な い 関 数 の 使用 例 を 紹介 し まし た が , ここ で は 引数 も 戻り 値 
あり ます 。GRAPH. FNC を 思い 出し て みて 下さ い 。 色 々 な 図形 を 描く 外部 関数 が あり ます 。 し 
か し , 三 角形 を 描く 関数 は あり ませ ん で し た 。 ここ で は , 外部 関数 に な か っ た 関数 を 作り 応用 し た 
サン プル プロ グラ ム を 紹介 し ます (第 3 一 77 図 )。 

本 題 に 入る 前 に , この プロ グラ ム で 使っ た 数 学 的 な 手法 に つい て 簡単 に 説明 し ます 。 

原点 O (0, 0) か ら R だ け は な れ て いる 点 P (X。、 Y。) が あっ た と し ます 。 それ ぞ れ の 点 を 
結ん だ 線 分 0 一 P (長き る R) と XX 軸 と の 角度 が の だ っ た と し ます 。 こ の 時 の 点 P (X。, Y。) は , 
第 3 一 76 図 の 様 に 表す こと が 出来 ます 。 こ の 方 法 を 極座標 法 し いい グラ フィ ックス で 図形 を 描く 
時 の 座標 計算 に よく 使わ れ ま す 。 













Y 軸 へ 点 Pe。Y9 





! Xo 





X 軸 
原点 0(0, 0) X。 ニ R cos( の ) 
Y。=R sin( の 














第 3 一 75 図 極座標 法 
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き て , この プロ グラ ム は triangle ( ) と いう 関数 一 つ し か あり ませ ん 。 引 数 は , 三角 形 を 構成 
する 3 点 と その 線 の 色 の 情報 で す 。 戻り 値 は , 色 の 情報 が 返っ て くる だ け で , そん な に 大 き な 意 
味 を 持ち ませ ん 。 数 値 関数 の よう な も の は , 戻り 値 に 命 が か か っ て いる の で す が , この よう な グ 
ラフ ィ ッ ク 等 を 扱う 場合 は 戻り 値 と 同等 の 意味 や 持つ の が 実行 結果 . 邑 ち ディ スプ レイ 上 に あ 
ら わ れる 図形 な の で す 。 

プロ グラ ム は , 先程 の 極座標 法 で 求め られ る 正三 角形 の 3 点 の 座標 を for ルー プ で 計算 し な が 
ら triangle ( ) を 実行 し て いま す 。 
triangle( )…… この 関数 は 引数 を 七 つ 持 っ て いま す 。 3 点 の x, 座標 と 線 の 色 の パレ ッ ト コ ー 
F で ず 。 





19 screen 2, 9, 1, 1 

29 int ii,1=159 

39 float xx1,xx2.xx3,yyl,yy2,yy3,i 

49 for ii=9 to 120 

59 i=(pi(1)/69)*ii 

69 xx1=l*sin(j)+384:yyl=l*cos(i)+256 

79 xx2=l*sin(pi(2)/3+i1)+384:yy2=l*cos(pi(2) 7/3+i)+256 
89 xx3=l*sin(pi(4)/3+i)+384:yy3=l*cos(pi(4)/3+i)+256 
99 triangle(xxl,yyl,xx2,yy2,xx3,yy3,5) 

199 next 

119 end 

129 func triangle(aifloat,bifloat,cifloat,difloat,ejifloat,fifloat.cc) 
139 line(a,b,c,d,cc) 

149 line(c,d,e,f,cc+2) 

159 line(e,f,a,b,cc+4) 

169 endfunc 











第 3 一 77 図 引数 , 戻り 値 の ある プロ グラ ム 


その 他 の 定義 関数 





この よう に 2 種類 の 定義 関数 が あり まし た が , この 他 に も X-BASIC の 特長 を 生か し た 関数 の 
使用 方 法 が あり ます 。 再 帰 呼 山 し と いう も の で す 。 こ の 方 法 は , グロ ー バ ル 変 数 と ロー カル 変数 
が ある た め 使 用 出来 ます 。 あ る 関数 が 、 その 関数 自身 を 関数 内 で 使用 し て いる と いう や や こし い 
も の で す 。 パ ズル の よう な も の な の で , きっ と 説明 し ます か ら 悩 ん で みて 下さ い 。 第 3 一 78 図 の 
プロ グラ ム が , 再帰 呼出 し を 使用 し た も の で す 。 
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19 int x 

29 input "x=",x 

39 print xi "1="jf(x) 

49 end 

199 func int f(aiint) 

119 if a=1 then return(1) 
129 return(a*f(a-1) ) 

139 endfunc 











第 3 一 78 図 階 乗 を 求め る プロ グラ ム 


順 を 追っ て 説明 し ます 。10 行 で int 型 変数 が 定義 きれ , 20 行 で その 変数 に キー ボー ド か ら 数 値 を 
代入 し ます 。 次 に , 30 行 で その 数 値 を 引数 と し た 定義 関数 f ( ) が , print 文 の 書式 で 表示 きる れ プ 
ログ ラム を 終了 し ます 。 と て も 簡単 な ゲロ グラ ム で す 。 し か し , 100 行 か ら の 4 行 の 関数 の 中 に は 
非常 に 大 き な 空 間 が 広がっ て いま す 。 

例え ば , X に 5 が 代入 る れ て いる と し ます 。 f (5) は 110 行 の 直文 で は ひっ か か ら ず に 120 行 に 
行き ます 。 120 行 の return( ) の 括 線 の 中 に 引数 と 関数 自身 に 先程 の 引数 か ら 1 引い た も の を 引数 
と し て 掛け た も の が あり ます 。 こ こ で この 関数 は , 自分 自身 も f (4) と し て 呼び 出し ます 。 再 帰 
の 始ま り で す 。 

f (4) は 110 行 目 に if 文 に ひっ か か ら ず に , 120 行 に 行き ます 。120 行 の return( ) の 括弧 の 中 に 
引数 と 関数 自身 に 先程 の 引数 か ら 1 引い た も の を 引数 と し て 掛け た も の が あり ます 。 こ こ で この 
関数 は , 自分 自身 も f (3) と し て 呼び 出し ます 。 

f (3) は 110 行 目 に i 文 に ひっ か か ら ず に , 120 行 に 行き ます 。120 行 の return( ) の 括弧 の 中 に 
引数 と 関数 自身 に 先程 の 引数 か ら 1 引い た も の を 引数 と し て 掛け た も の が あり ます 。 こ こ で この 
関数 は , 自分 自身 も f (2) と し て 呼び 出し ます 。 

f (2) は 110 行 目 に if 文 に ひっ か か ら ず に , 120 行 に 行き ます 。120 行 の return( ) の 括弧 の 中 に 
引数 と 関数 自身 に 先程 の 引数 か ら 1 引い た も の を 掛け た も の が あり ます 。 こ こ で この 関数 は , 自 , 
分 自身 を f (1) と し て 呼び 出し ます 。 

f (1) は 110 行 目 に 文 に ひっ か か り return(1) つま り 戻 り 値 が 1 と な り 前 の 関数 に 返っ て きま 
す 。 を そこ で 前 の 関数 f (2) で の 戻り 値 の return( ) の 括 紙 の 中 は , 2*1 と な り ま す 。 これが f 
(3) に 戻り , f (3) で の 戻り 値 の return( ) の 括弧 の 中 は 、 3*※2*※1 と な り ま す 。 これ が 人 f (4) 
に 戻り . f (4) で の 戻り 値 の return( ) の 括弧 の 中 は 、 4* ま 3※2※1 と な り ま す 。 これが f (5) 
に 戻り , f (5) で の 戻り 値 の return( ) の 括弧 の 中 は , 5*4*※3*※2*1 つ まり 120 と いう 答え 
が 30 行 の print 文 で 表示 され る 訳 で す 。 

即ち この プロ グラ ム は , 最初 に 聞い て くる 数 値 の 階 乗 を 求め ゆる プロ グラ ム だ っ た わけ で す 。 
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ワン ポイ ント テク 





ツク 「BASIC. CNF」 に つい て 


BASIC.CNF」 は , XX-BASIC の 起動 時 の 各種 の モー ド 
や 外部 関数 の 組み 込み に 関す る 情報 が 書か が れ て いま す 。 
で ちょ っ と この 「BASIC.CNF」 の 中 身 を の ぞい て みる こと に 
し まし ょ う 。 ま ず ,。 ビ ジュ ア ル シェ ル に 戻っ て みて 下さ きい 
BASIC の ウィ ンド ウ の 中 に 「BASIC.CNF」 と いう アイ コン 
が あり ます の で ,. アイ コン メン テ ナ ン ス て 実行 ファ イル の と 
ころ に “ED.X” と 入力 し て 登録 し ます 。 こ れ で 「BASIC.CNF」 
の アイ コン を ダブ プル クリック する と ED.X′ (フル スク リー 
ン エ ディ タ ) が 起動 きれ て 「BASIC.CNF」 の 中 身 が 画面 に 下 
起 の よう に 表示 され ます 。 











FREE = お 科 dzozdikanksssssascysassaser gezex み JE サ 
ア の 破 定 実行 ファ イル に *ED.X* を 書き 込む 。 
Tr 画面 横 の 廊 
字数 (64 ま た は 96) 
CAPS =ON ON で 大 女 字 。、OFF で 小娘 字 
FUNC AUDIO で ee : 
FUNC =GRAPH : 
FUNC MUSIC 組み 込む 外部 関数 の ファ イル 名 (**※*※. FNC) 





FUNC MOUSE 

FUNC SPRITE 

FUNC STICK 
例え ば , 起動 時 に フリ ー エ リア 

うに 内 容 を 書き 替え ます 

FREE=320 

WIDTH=96 

CAPS=OFF 





K バ イト 確保 し て 、 画面 横 の 廊 字 数 は 96 六 池 で 小 女池 を 使い た い 場 合 は 次 の よ 








また ,「 私 は スプ ライ ト FM 音源 は 、 使わ な いよ 」 と いう 方 は 必要 の な い 外 部 関数 を 前 る こと 5 出来 ます 。 も ちろ ん 。 
組み 込ま れ て いな い 関 数 を 使 な うと すれ ば エラ ー に な り ま す 
FREE=320 
WIDTH=96 
CAPS=OFF 
FUNC=AUDIO 
FUNC=GRAPH 
FUNC=MOUSE 
FUNC=STICK 
また 、 新しい 外部 関数 を 組み 込む こと も 出来 ます 。 例えば,、 イ メー ジュ ユニ ッ ト を 買っ た 方 は , 福袋 の 中 の 「IMAGE.FNC」 
と いう ファ イル を この BASIC の ディ レク トリ の 中 に 移動 し て か ら ド 線 の 部 分 を 追加 すれ ば X-BASIC で イメ ー ジ ユニット 
が 制御 出来 る よう に な り ま す 。 
FREE=320 
WIDTH=96 
CAPS=OFF 
FUNC=AUDIO 
FUNC=GRAPH 
FUNC=MOUSE 
FUNC=STICK 
FUNC テーIMAGE LAIULLELLEKETYTNLLUUULULLLLULLPPLLLLTYTYYKT で さと と と と と と と | 「IMAGE.FNC」 の 追 加 
変更 が 終わ っ た ら [ ESC |] キー を 押し た 後 で [E] キー を 押せ ば 「BASIC.CNF」 が 書き 替え られ ま 今 a 
ほん の ちょ っ と し た こと で す が , この 「BASIC.CNF」 が あ る お か げ で て X-BASIC は 非常 に 自由 度 が 高い も の に な っ て い 
ます 。 これから 発売 きれ る で あろ う 立 体 ス コー プ や 各種 の 拡張 機器 に も きっ と を の 機能 に 応じ た 外部 関数 が サポ ー ト さき 
れ て 「BASIC.CNF」 を ちょ っ と 書き 替え る だ け て X BASIC か ら 簡 単に 制御 出来 る よう に な る で し ょ う 。 楽し み で すね ! 
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X-BASIC の 標準 関数 、 外部 関数 、 定 義 関数 に つい て 第 3 章 で 説明 し て きま し た が , ここ で は 
X-BASIC の 特長 と し て あげ られ る 外部 定義 関数 に つい て 説明 し ます 。 こ れ ま で に 標準 関数 、 外 
部 関数 、 そし て 各種 ステ ー ト メン ト や 演算 等 に より 独自 の 定義 関数 を プロ グラ ム 内 に 持つ こと が 
出来 る こと は 理解 され た と 思い ます 。 し か し , あく まで も BASIC で 記述 し て あり ます か ら , 
BASIC の 致命 的 な 部 分 で ある 実行 速度 が 遅い こと や , 限ら れ た ステ ー ト メン ト や 標準 関数 , 外部 
関数 で は X68000 の ハー ドウ エア の 細か な 部 分 まで は 操作 する こと が 出来 ませ ん 。 こ の よう な 場 
合 に この 外部 定義 関数 を 使用 する わけ で す 。 しかしながら, 今 ま で の よう に 何 か 基 本 と な る も の 

(ステ ー ト メン ト や 関数 群 ) が あり , それ を 組み 立て て きだ た よう な わけ に いき ませ ん 。 外部 定義 
関数 は , 68000 の マシ ン 語 に より 作ら れ て いる だ た めで す 。 

マシ ン 語 に より 作成 され る 外部 定義 関数 し いっ て も 関数 で すか ら , 前 述 の よう に 引数 や 戻り 値 
が あり ます 。 ま た だ この 引数 , 戻り 値 に つい て も 四 つ の 型 が あり ます 。 従来 の BASIC で は , X- 
BASIC の ょ うな 外部 定義 関数 は な い の で , マシ ン 語 を 使用 し て 外部 に サブルーチン を 置い て 使 
用 し て いま し た 。 こ の 場合 , 引数 や 戻り 値 は な くも っ ぱら メモ リ 上 に 情報 を 書き 込ん で は CALL 
する と いっ た 方 法 で し た 。X-BASIC の 場合 に は そん な 無 秩 座 な も の で は な く , あ る 決ま っ た 書式 

(フォ ー マ ッ ト ) に よっ て 外部 関数 を 定義 し て いま す 。 基 本 的 な 書式 は 第 4-1 図 の よう に な り ま 
あぁ 











米 素 玉 来 玉 玉 玉 氷 玉 玉 玉 本 訂 イン フォ メー ジョ ン ・ テ ー ブ ノル 本 水 氷 玉 米 本 玉水 来 玉 玉 玉 玉 玉 玉 水 氷 本 玉 米 玉 
adr_init ee, 1 return 
adr_run dc. | return 
adr_end die.。 1 return 
adr_system dc.I return 
adr_break dc.1 return 
adr_input die 。 1 return 
adr_resServel dc.1 return 
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adr_reServe2 dc. 1 return 


adr_token 中 ea token_table 
adr_Darammeter dc.1 param_adr_table 
adr_exec dc. 1 exec_table 
reServe dc. 1 9, 9, 9, 9,9 


本 本 本 玉 玉 本 本 本 本 玉林 林 トー クソ ン ・ テ ー ブ ノブ” ルネ 本 末 玉 本 本 本 素 本 本 玉 末 床 玉 来 玉 玉 玉 本 玉 玉 ボ 


token_table dc.b ”tline”,9,9 


米 玉 来 玉 末 玉 玉 玉 玉 玉 来 来 玉 束 素 八 " う メー タ ・ テ ー ブ ” 引 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 束 来 玉 玉 玉 玉水 玉 


.even 

-Param_adr_table dc.| param_table_1 

param_table_l dc.W $0992,.$99092,$0992 
dc.W $9992,$0992,$8901 


米 本 玉林 玉林 玉 玉 玉 玉 玉 玉 氷 氷 末 ツッコ ウ ア ト レス ・ テ ー ブ ノ ” ル 本来 玉 玉 末 玉 玉 玉 来 玉 玉 水玉 玉 玉 玉 玉 玉 玉 玉 玉 
・eBVen 


exec_table dc.1 tline 


ネネ 本 玉 氷 本来 氷 玉林 末 FUNC MAIN * ネ ポ 玉 玉 玉 玉 素 玉 玉 玉 玉 玉 玉 玉 素 末 氷 涼 氷 玉 末 来 来 来 来 来 東 


・BVen 


tlinei・・・・・ ここ か ら マ シン 語 の プロ グラ ム が 始ま る 。 











第 4 一 1 外部 定義 関数 の 基本 的 な 書式 
第 4-1 図 は , 関数 本 体 の 内 容 が 変わ っ て も ここ は 変わ る こと が あり ませ ん 。 こ の 部 分 の こと 
を ヘッ ダ と いい 関数 の 引数 、 戻 り 値 。 関数 名 に つい て 定義 し て いる と ころ で す 。 こ の ヘッ ダ を 大 
きく 分 ける と , 四 つ に 分 か れ ま す 。 
( 1) イン フォ メー ショ ン テ ー ブ プル 
( 2 ) トー クン テー ブル 
( 3 ) パラ メー タテ ー ブ ル 
( 4 ) 実行 アド レス テー ブル 
この 四 つ に つい て , それ ぞ れ 解説 し て み ま す 。 
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(1) イン フォ メー ショ ン テ ー ブ プル 

上 か ら 8 行 は 、 X-BASIC が 起動 きれ た 時 や プロ グラ ムッ 実行 時 , 終了 時 , ブレ ー ク 時 な ど に お 
いて , それ ぞ れ の 場合 の 実行 アド レス を 記述 する 部 分 で す 。 しかし, ここ は 第 4- 1 図 の よう に 
return と いう ラベ ル を ふっ て お いて も 結構 で す 。 return と いう の は , 当然 この 関数 を 抜け る 部 分 
(マシ ン 語 の 終了 部 分 ) に 定義 され て いて 68000 の アセ モン ブラ 記述 で ,、 rts と な っ て いる 必要 が あ 
り ま す 。 その 下 の 行 か 6 (2), (3), (4) の それ ぞ れ の テー ブル が 宣言 きれ て いま す 。 

( 2 ) トー クン テー ブル 

ここ は X-BASIC で 今 作ろ うと し て いる 関数 を . どの よう な 関数 名 に する か を 記述 する 部 分 
で す 。 こ の 例 の 場合 で は , tline と いう 関数 に な っ て いま す 。 を そし て 関数 名 の 後に は 後述 する 複数 
の 関数 を 同時 に 定義 する 時 に 関数 名 どう し を 区 切る "0 "を 入れ ます 。 ま た 、 この 後に トー クン テ 
ー ブ ル 終了 を 知ら せる "0" も 入れ ます 。 従っ て . こ の 例 の よう に 一 つ だ け 関 数 を 定義 する 時 は , 関 
数 名 "0", "0 "と な り ま す 。 

( 3 ) パラ メー タテ ー プ ブル 

ここ で は , 関数 に と っ て 一 番 大 切な 引数 と 戻り 値 を 定義 し ます 。 引 数 , 戻 り 値 に は X-BASIC の 
変数 同様 基本 的 に は 四 つ の 型 が あり ます 。 ま た 定義 関数 で は 扱え を な か っ た 配列 を 使用 し た 引数 
が 定義 出来 る よう に な っ て いま す 。 第 4- 1 図 で は , $0002, $8001 等 と 書い て ある 部 分 は , これ 
ら の 引数 や 戻り 値 に パラ メー タ ID を 割り 付け た も の で , その 詳細 は 第 4- 2 図 の よう に な り ま 
E 





引数 float・・・ $9091 
nt $0002 引数 を その まま 受け 取る 場合 
char・・・・・・・ $9904 
S【 キ キャ ・・・・・・ー・ $9008 
float・・…・ $9011 
int・・ $6912 引数 を ポイ ンタ と し て 
char・ーー $6914 受け 取る 場合 
St エ ・・・ーー・ー・ $9918 
float・・・・ $9081 
int・・ー・・ $0982 引数 が 省略 出来 る 場合 
TE $9984 
Str CE ま ま 二 う $90988 
戻り 値 float・・・・ $8999 
int・ーーーーーーー・ $8991 
char・・・・・・・ $8093 
無し ・…・・ $ff イ ff 











第 4 一 2 図 パラ メー タ ID 
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外部 定義 関数 の 書式 (その 1 ) ww 


この 他 に , 配列 を 引数 と し た も の に 次 の よう な も の が あり ます 。 


配列 の 引数 IO $ 0031 
NMM (Geeoyeoxievmee $ 0032 1 次 元 配 列 の 引数 の ID 
CNar "RsRraecans $ 0034 
に 15 MOE $ 0038 


この パラ メー タ ID を パラ メー タテ ー ブ ル に 必要 な 個数 設定 し ます 。 た だ し , 戻り 値 は ー つ だ け 
で す 。 こ の 例 で は , int 型 の 引数 を 五 つ と , int 型 の 戻り 値 が 一 つ 設定 され て いま す 。 
( 4 ) 実行 アド レス テー ブル 
色々 な 条件 (X-BASIC と の 接点 ) に つい て 設定 が 出来 まし た が , まだ マシ ン 語 を どこ か ら 実 
行 し て いい か 分 か り ま せん 。 こ こ で は , マシ ン 語 の プロ グラ ム が どこ か ら 始 まる の か を 実行 し た 
い 部 分 に 記述 し た ラベ ル で 知ら せ て や り ま す 。 こ の 例 の 場合 は , 関数 名 と 同じ tline で す 。 従っ 
て ,、 第 4 一 1 図 の 最 下 行 に ある tline : か ら プ ログ ラム を 実行 する わけ で す 。 





皆さん が 日 常 良く 使っ て いる 数 値 は , 10 進 法 で す 。 X-BASIC で は , この 10 進 法 の 他 に 2 進 法 と 8 進 
法 と 16 進 法 の 数 値 を ダイ レク ト に 表現 する こと が 出来 ます 。 それ ぞ れ の 表現 方 法 は 次 の 通り で す 。 





〇 10 進 法 


&B を 付け る こと で 


②③ 8 進 法 


&O を 付け る こと で , 


〇 16 進 法 


1234 0。 1 ユ ル 当 2 
〇 2 進 法 
&B101010…… 10 進 法 で 4 2 


2 進 法 と 解釈 され ます 。 


GO 7 2 5 me 10 進 法 で 4 6 9 


8 進 法 と じ て 解 釈 ミ れ ます 。 





(45 人 0 O2 10 進 法 で 2 0 47 
和 &H を 付け る こと で , 16 進 法 と 解釈 され ます 。 








211 


au 第 4 章 外部 定義 関数 mvwamvremvramuremvnemvnemnemnumynunwnumenmenvwunynunvnumvnumvnnvmvnvnvmunvnumvnunvnunvnumvnenvnumvnumvnumvnunvnum 




















SG0296GOGOOSOOOSOO い < 00 5 





ここ で は 簡単 な 外部 関数 を 実際 に 定義 し て 解説 し て いき ます 。 ま ず 最 初 に 、 色 々 な 条件 か ら 決 
め な けれ ば な り ま せん 。 

ここ て 紹介 する 方 法 は , 一 般 的 に 仕事 の 打ち 合わ せ の 時 の 覚え 書き や 商品 の スペ ッ ク を 説明 し 
て ある 仕様 書 の よう な も の で 関数 の 目的 や , 使い 方 , 引 き 数 , 戻 り 値 等 を 列記 し て お くも の で す が , 
こう し て お く 〈 く と 後 で 色々 と 役に立つ の で 自分 な り の 方 法 で まとめ て お く こ と を お 薦め し ます 。 





第 4 一 3 図 外部 定義 関数 oddeven ( ) の 仕様 


以上 の 仕様 書 で 外部 関数 を 定義 し て み ま す 。 
手順 1 
この 仕様 書 で 列記 し た 条件 を ヘッ ダ で 使用 出来 る よう に 加工 し ます 。 引 数 と 戻り 値 を 先程 の 
パラメータ ID の 表 で 選び ます 。 
引 数 $ 0008 
戻り 値 $ 8001 
関数 名 (XーBASIC 側 ) 


oddeven( ) 
と な り ま す 。 


手順 2 
ヘッ ダ の 作成 を し ます が , 第 4-1 図 も その まま 使い , 引数 と 戻り 値 と 関数 名 だ け を 書き 換 
えま す 。 こ の よう に 変更 する 必要 の な い 所 その まま に し て ヘッ ダ を 作る と 非常 に 能率 が よく 
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な り ま す 。 


外部 関数 定義 の 実習 ww 





本 本 来 玉 玉 本 玉 本 本 本 本 本 玉 イン フォ メー ツ ョ ン ・ テ ー ブ ” ル 本 本 玉 本 玉 米 玉 玉 本 李 玉 玉 本 玉 玉 李 玉 本 


adr_init dc. 1 return 
adr_run dc. 1 return 
adr_end dc. 1 return 
adr_system dc.1 return 
adr_break dc.1 return 
adr_input し 【 生 | return 
adr_reServel dc. 1 return 
adr_reserve2 dc. 1 return 
adr_token dc.1 token_table 
adr_parameter dc. 1 param_adr_table 
adr_exec dc. 1 exec_table 
reSerVve dc. 1 9, 9, 9, 9,9 


杯 素 玉 素 本 本 玉 玉 素 トー クン ソン ・ テ ー ブ ” ル 本 本 本 玉 玉林 玉 主 本 本 キキ 本 本 本 玉 玉 本 


token_table dc.b SS | 


杯 本 本 本 本 本 謙 玉 本 玉 八 " フ メー タ ・ テ ー ブ ” ル 本 本 本 本 本 本 玉 玉 本 本 本 本 玉 本 本 本 玉 玉 本 本 本 素 


・even 
param_adr_table dc.1 paramm table_l 
paramm_table_1 dc.W : 琴 凍 

dc.W : 球 寺 ま 


玉 来 玉 玉 素 玉 素 本 素 素 本 本 束 率 ツー ラコ ゴウ アト "レス ・ テ ー ブ ” 上 本 玉林 玉 本 本 本 本 杯 本 玉 玉 玉 玉 本 本 本 本 玉 
・eVen 
exec_table dc. 1 - き 虫 輸 Ss 


本 末 本 本 本 本 本 本 キ キ FUNC MAIN キキ キネ 本 本 本 本 キキ キキ 本 本 本 キキ キキ 本 キキ 本 本 本 本 本 本 


・eVen 





CN 綱 掛 け の 部 分 が 変更 し た と ころ で す 。 








第 4 一 4 図 ヘッ タダ 部 分 


手順 3 


oddeven : か ら プ ログ ラム を 作り ます 。 引 数 の ID や 戻り 値 の ID は わか り ま し た が , 実 際 の プ 


ログ ラム 中 で どの よう に 渡 き れ て くる か に つい て 説明 し ます 。 
この oddeven : の プロ グラ ム 第 4 一 5 図 の 中 に , 
move .1 12 (sp), a0 
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と いう 部 分 が 先頭 に あり ます 。 こ れ は , 文字 列 の 格納 され て いる メモ リ の 先頭 アド レス を a0 に 
複写 し て いま す 。 引 数 は スタ ッ ク ポ イン タ に 渡さ きれ そこ か ら , 改め て レジ スタ に 渡さ きれ ます 。 
str 型 の 引数 の 場合 に は , 自動 的 に ポイ ンタ (格納 し て ある メモ リ 番 地 ) を 渡す 約束 に な っ て い 
ます 。 その 他 の 数 値 の 引数 は , この 例 の よう に 記述 し て , 値 を a0 に 複写 し ます 。 

複数 の 引数 が ある 時 は , 次 の よう に 2 個 目 以降 の 引数 が 渡さ きれ ます 。 


move.1 12(sp) ,xx…… 1 番目 の 引数 
move.1 22(sp) xx…… 2 番目 の 引数 
move.1 32(sp) ,xx…… 3 番目 の 引数 
move.1 42(sp) ,xx…… 4 番目 の 引数 


xx は プロ グラ ム 内 部 で 使用 し て いる レジ スタ で 
ユー ザー が 決め ゆる 。 ポ イン タ の 場合 は ax で , 値 の 場 
合 は dx に 渡し た 方 が 便利 で す 。 





oddeven: move. | 12(sp),a9 
move. | #-1,d9 
count addq. 1 #1.d9 
tst.b (a9)+ 
bne count 
and. | #1.d9 
moOve. | d9,ret_paramm+B 
ee。 d9 
lea. 1 ret_param(pc),a9 
lea. 1 error_comment(pc),a1 
return rts 
even 
Fet_para 硬 dc.W 
dc. 1 9 
ds. 1 1 
BTTOT_CO 男 胃 Cnt dc.b "error",9 
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end 





第 4 一 5 図 oddeven ( ) プロ グラ ム 本 体 


き て , 戻り 値 で す が , 三 つ の レジ スタ に セッ ト し ます 。 戻 り 値 を 格納 し た メモ リ の アド レス 
と , エラ ー の 場合 の メッ セー ジ を 格納 し た メモ リ の 先頭 アド レス と , 関数 の 終了 時 の 状態 を 表 
す ス テー タス で す 。 
格納 する レジ スタ は 次 の 通り で す 。 
d0 : 正常 終了 の 場合 は 0 
a0: 戻 り 値 を 格納 し た メモ リ の アド レス 
al: エ ラー メッ セー ジ の 格納 し て ある メモ リ の 先頭 アド レス 
プロ グラ ム 中 で , ret param と し て ある 部 分 が 戻り 値 を 格納 し て ある 所 で す 。 さ て , ブロ グラ 
ム の 説明 で す が , 前 述 の 通り a0 に 文字 列 の 先頭 アド レス が 移さ きれ, d0 に は 一 1 が セ モット され まし 
だ (1, 2 行 目 )。 次 に tst.b (a0) 十 で, 文字 列 が 0 が どう か (終わ りか どう か ) を チェ ッ ク し な 
が ら ル ー プ カウ ンタ の d0 を イン クリ メン ト (1 加算 ) し て いき ます 。 tst.b/ (a0) は 実行 後 、 a0 
を 1 加算 し ます か ら 文 字 列 の 引数 格納 アド レス を 1 文字 ずつ 更新 し て いき ます 。tst.b(a0) 十 で 0 
を 検出 し た 後 , and.1 打 , dO0 と いう 命令 で , 最 下 位 ビ ドット だ け を その まま に し て 残り の 31 ビ ッ ト 
全て を 0 に し ます 。 こ うし て し まえ ば , 最後 に 残っ た 最 下 位 ビ ピット が 0 な ら 偶 数 で , 1 な ら 6 奇数 
と あこ と と に なか なり ます 。 


手順 4 
こう し て 机上 で コー ディ ング きれ だ た プログ ラム を , X68000 付 属 の ED.X を 使い 入力 し て い 
きま す 。 入力 する 時 に は , "ファ イル ネー ム ".S と し て アモ ンプ ブル ソー ス フ ァ イル で ある こと を 
明示 し て 下さ きい 。 こ の 後 , AS.X と LK.X を 使用 し て アモ ンプ ブル 及び リン ク し て 下さ い 。 
AS.X を 使用 する 時 は , フ ァイル ネー ム に *※*※*※.S を 指定 ,LK.X で リン ク す る 時 は , フ ァ イ 
ルネ ー ム に ※*※*※.O を 指定 し ます 。 


手順 5 
出来 上 が っ た 関数 の ファ イル ネー ム は ,※* ネ * ま .X と な っ て いる の で す が ,X メ ーBASIC の ディ 
レク トリ の 中 に ある 外部 関数 は 全て * ま *※ ネ *※.FNC と な っ て いま す 。 実は , 外部 関数 は ネネ ※*. 双 
だ っ た の で す 。 こ れ は , 前 述 の ヘッ ダ に 秘密 が あり , ファ イル ネー ム わ *※*※※. 双 か ら ※※ 玉 . 
FNC と 変更 する だ け で よい の で す 。 





本 本 本 本 本 本 本 本 本 本 本 本 本 本 本 イン フォ メー ソ ョ ン ・ テ ー ブ ルキ 本 本 本 本 本 本 本 本 本 本 本来 本 本 本 本 本 本 本 








adr_init dc.1 return 
adr_run dc.1 return 
adr_end dc.1 return 
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adr_SySte 章 dc. 1 return 


adr_break dc. 1 return 
adr_input de。 1 return 
adr_reservel dc.1 return 
adr_reserve2 dc. 1 return 
adr_token dc。 1 token_table 
adr_parameter dc.1 Para 胃 _adr_table 
adr_exec dc. 1 exec_table 
reServe dc.1 9, 9, 9,9,9 


本 玉林 本 本 本 本 本 玉 本 率 本 トー クン ・ テ ー ブ ” ル 本 本 本 本 玉 本 証 本 本 本 本 玉林 来 杯 玉 玉 玉 玉 玉村 玉 





token_table dc.b SS きき:| 


本 本 本 本 玉林 本 本 本 本 八 " ブ メー タ ・ テ ー ブ ” 條 本 本 本 本 本 本 本 玉 本 本 本 本 本 玉 本 玉 李 玉 玉 玉 玉 


- eVen 
PATa 箇 _adr_table dc.1 Para 秀 _ table_l 
param_table_l dc.W 区 れい 1 

dc.W 3 閑 ま 


素 本 玉 玉 玉 玉 玉 玉 末 本 末 末 訂 ソー ッ コ ゴウ アト "レス ・ テ ー ブ ルル 玉 玉 玉 素 玉 玉 玉 米 玉 末 来 来 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 


・GVen 





exec_table dc. 1 


ネネ キキ キキ FUNC MAIN ネネ ネネ 本 氷水 本 玉林 本 本 本 本 杯 本 玉 本 玉 玉 本 玉 本 本 


・even 
oddeven: move,. 1 12(sp),a9 
move. | #-1,d0 
count addq. | #1.d0 
tst.b (a9)+ 
bne count 
and,. 1 #1.d0 
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move. 1 d9,ret_param+b 
elr。』 d9 
lea.1 ret_param(pc),a9 
lea.1 errOT_COmmment(pc),a1 
return rts 
.eVven 
ret_para 右 dc.W 
っ 
ds. 1 1 
FTOT_COmWmment dc.b "error”,9 
end 











第 4 一 6 図 完成 し た 外部 定義 関数 oddeven 


第 4 一 5 図 が 完成 し た 外部 定義 関数 の ソー スリ スト で す 。 手 順 ど お り 実 行き れ て いれ ば , 次 に 


あげ る 第 4 一 7 図 の リス ト を 実行 し て 次 の よう な 結果 が 出る と 思い ます 。 た だ だ し , 
外部 関数 は BASIC.CNF に 登録 し て お か な けれ ば な り ま せん 。 


出来 上 が っ た だ 





19 str a="X-BASIC”,b=” 外 部 定義 関数 ” 


2 int x,y 

39 x=oddeven(a):y=oddeven(b) 
49 print x,y 

59 end 

run 

1 9 

0k 

四 











第 4 一 7 oddeven の サン プル プロ グラ ム 


この プロ グラ ム で , a は 7 文字 で b は 全角 で 6 文字 つま り 半 角 文 字 と し て 数 えた 場合 12 文 字 と 
いう こと に な り ま す 。 従っ て , oddeven (a) は 1, oddeven (b) は 0 と いう こと に な り ま す 。 
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4 一 3 外部 定義 関数 の 書式 (その ? ) 





















2!o で j ら | | 配列 を 引数 と する 外部 定義 関数 





4-2 で 紹介 し た 外部 定義 関数 で は , 引数 と し て str 型 , 戻 り 値 と し て int 型 で 作り まし た 。 し か 
し , ユー ザー の 発想 は た ほど まる こと を 知り ませ ん か ら , 奇抜 な 考え や 非常 に 優れ た も の な ど 色 々 
あり ます 。 その よう な 中 に , 引数 に 配列 を 使い た い 場 合 が 出 て きま す 。 外部 関数 の 中 の AUDIO. 
FNC で 出 て きた だ a rec, a plav な ど が そう で す 。 基本 的 に は , 前 述 の 外部 関数 の 定義 法 は 付属 の 
外部 関数 と 同じ 構造 で ある の で , ユー ザー が 配列 を 引数 と する 関数 を 作成 する こと も 可能 で す 。 

それ で は , 実際 に 配列 を 引数 と する 外部 定義 関数 を 作っ て み ま す 。 こ の 関数 の 仕様 書 は 第 4 一 
8 図 の よう に な り ま す 。 関 数 の ソー スプ ログ ラム は 第 4 一 9 図 の 通り で す 。 





第 4 一 8 図 外部 定義 関数 sum( ) の 仕様 








玉 玉 玉 玉 素 玉 本 本 主 キ 本 本 イン フォ メー ツ ョ ン ・ テ ー ブ ルキ 本 ド 本 本 本 本 本 玉 キ 本 玉村 ギ 玉 玉 玉 本 
adr_init dc.1 return 
adr_run dc.1 return 
adr_end dc.1 return 
adr_system dc. 1 return 
adr_break dc.1 return 
adr_input dc.1 return 
adr_reservel dc.1 return 
adr_reserve2 dc.1 return 
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R&RSGRSRRARSokeeesdesotestessets 29| [部 定義 関数 の 半 玲 (を の 2 aa 


adr_token 
adr_parameter 
adr_eXec 
reServe 

ト え ます ます すす すす すもも も 1 
token_table 

ト え も すす すす すす すす すもも も 3 


param_adr_table 


Para 箇 table_l 


キキ 本 本 本 本 玉 本 本 本 本 本 玉 本 


exec_table 


素 杯 素 ボ 来 玉 ボ 玉 末 素 素 杯 本 


SU 前 


nextadd 


return 


Tet_para 画 





BTTOT_CO 画 表 Gnt 


dc. 1 token_table 
dc。1 Paramm_adr _table 
dc.1 exec_table 

dc. 1 9,.9,9,9,9 


トー クン ・ テ ー フ " ル 本 本 玉 来 本 玉 玉 杯 玉 玉 玉 玉 本 本 本 本 玉 本 本 本 本 






dc.b 9, 0 


"ラメ ー タ ・ テ ー ブ "本 杯 来 本 李 束 玉 本 玉 玉 本 本 本 素 玉 本 本 束 


even 
dc. 1 param_table_l 
dc.W SS ミオ 
dc.W ミ 電 半 間 基 ま 


ジ ~ フッ コウ アト ~ ルス ・ テ ー ブ 7 ル 本 本 本 本 玉 玉 本 本 本 本 本 末 玉 本 末 本 本 本 林 末 本 末 


・even 
dc.! 本 1 


FUNC MAIN * ネ ネネ 本 玉 束 末 玉 玉 玉 玉 玉 本 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 


・even 
move. | 12(sp),a9 ‥…‥…‥ ポイ ンタ ー の ポイ ンタ ー 
move.1 22(sp) ,d2 

1ea. | 19(a9),a9 ……・ 配 列 の 先頭 アド レス (*" イ ッ タ -) 
clr.I d9 

move.| (a9)+,d1 

add. | d1,d9 

subq. 1 #1.d2 

cmp.1 9,d2 

bne nextadd …・ d2 が 0 に な る まで ルー プ 
move. 1 d9,ret_param+b 

clr.I d9 

lea.1 ret_para 因 (pc),a9 

lea.1 error_comment(pc),al 

rts 

・even 

dc.W 

dc. 1 

ds. 1 

dc.b error”,9 
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end 





第 4 一 9 図 外部 定義 関数 sum の ソー スリ スト 


この プロ グラ ム を 実行 きせ る X-BASIC の サナ サンプ ルプ ログ ラム は , 第 4 -10 図 の 通り で す 。 





19 int a,x=19 

29 dimm int d(9)=(1, 2,3,4,5,6,7,8,9,19} 
39 a=sum(d,x) 

49 print "total=”",a 

59 end 

run 

total= 55 

Ok 

自 











第 4 一 10 図 sum の 使用 例 


ご 覧 の よう に , 引数 と し て 配列 を 渡す こと に より , 非常 に 簡略 化 さ れ た 記述 に な り ま す 。 こ の 
方 法 を 使う こと に より , た くさ ん の 引数 を 必要 と する 関数 に は , 配列 を 渡す こと が いか に 能率 の 
良い 方 法 か が 分 か り ま す 。 

実際 の 配列 の 引き kkAA て は , 第 5 草 に 事例 が あり ます の で , それ も 参考 に し て 下さい 。 


の HE) | 数 を 戻り 値 と し て 全う 





定義 関数 で 説明 し た グロ ー バ ル 変 数 と ロー カル 変数 で , 引数 を 持た な い 関 数 の 定義 を 解説 し ま 
し た が , これ と は 反対 に 戻り 値 も ダミー に し て し まい , 答え を 引数 に 返す 方 法 が あり ます 。 こ れ 
は , 外部 関数 の MOUSE.FNC の mspos で マウ ス の 位置 を 引数 に 返す 方 法 と 同じ で す 。 こ れ は 
引数 と し て ポイ ンタ (引数 と し て 使っ た 変数 の メモ リア ドレ ス ) を 受け 取り , 結果 わ を の ポイ ン 
タ へ 返す も の で す 。 こ の 方 法 を 使う と , 関数 の 基本 概念 で あっ た 引数 に 対す る 戻り 値 し と いう こと 
が 成り 立た な く な る ほか , 戻り 値 を 複数 に する こと が 出来 る 点 に 注目 で きま す 。 

関数 の 中 に は , グラ フィ ックス 等 に よく 使う 座標 計算 で は , 平面 で は x, Y が あり , 立体 に な 
れ ば x, Y, Z と 三 つ の 座標 系 が 必要 に な り ま す 。 こ の よう な 場合 , ある 条件 の も と で を の 関数 
を 通せ ば 座標 情報 が xX, Y で 返っ て くる よう な 関数 も 作る こと が 出来 ます 。 こ うい う 場 合 に は , 
ダミ ー の 戻り 値 を 設定 し な けれ ば な ら な い の で す が , それ は その まま 使わ な けれ ば いい の で す 。 
を それでは, 4-3-1 で 定義 し た sum ( ) を 改造 し て , 引数 に 答 ぇ を 返す 方 法 も 見 て み ま す 。 
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本 玉 本 林 本 本 本 本 玉 末 杯 本 末 イ ン フ オォ メー ジョ ン ・ テ ー ブ ” ルキ 玉 米 玉 玉 ボ 来 玉林 玉 キ キキ 玉 玉 玉 玉 玉 玉 玉 玉 


adr_init dc.1 return 
adr_run dc.1 return 
adr_end dc. 1 return 
adr_system dc. 1 return 
adr_break dc. 1 return 
adr_input dc. 1 return 
adr_reservel dc.1 return 
adr_reserve2 章 cil return 
adr_token dc.1 token_table 
adr_parameter し 「 0 の 肖 | Paramm_adr_table 
adr_eXec dc. 1 exec_table 
TeSerVe dc. 1 9.9.9.9.9 


本 本 玉 本 キキ 玉村 玉 本 本 本 本 本 トー クン ・ テ ー ブ ルル 本 本 本 本 本 本 本 本村 本 本 本 本 本 玉 本 本 本 本 キキ キキ 本 


token_table dc.b "SH 全 よ ", 0,0 


本 本 本 李 本 玉 来 玉 玉 玉林 八 " フ メー タ ・ テ ー ブ ” ルル 本 本 本 本 本 玉村 本 本 本 玉 本 本 本 本 本 玉林 本 本 本 玉 本 


・eVen 
param_adr_table dc.1| Para 箇 table_l 
Param_table_l dc.W まひ 632 、 き 9602.$8912 
dc.W 8 お 人 ま 


本 本 本 本 玉 杯 本来 玉 本 本 本 本 本 ツー フッ コウ アト "レス ・ テ ー ブ ” ル 本 本 本 本 本 本 本 本 本 本 森本 本 林 本 キキ キキ キネ 本 玉 
・eVen 


exec_table dc. 1 に い E BI 


本 本 本 本 本 本 本 本 本 杯 本 FUN(C MAIN キキ 本 本 本 本 玉 玉 玉 玉 玉 玉 本 本 末 玉 末 玉 玉 玉 玉 本 本 杯 








.even 
きせ 間 ま move. | 12(sp),a9 
move. | 22(sp),d2 
0V@、 る 32%sp):a・… 第 3 引き 数 の ポイ ンタ ー を 受け 取る 
lea.1 19(a9).a9 
clr.1 d9 
nextadd move.| (a9@)+.d1l 
add. 1 dl,d9 
subq. 1 #1.d2 
cmp. 1 #9,d2 
bne nextadd 
NSR :d 電 ta1)…… 第 3 引き 数 の ポイ ンタ ー 人 へ 答え を 返す 
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大 OVe. 1 d9,ret_param+B 
clr.1 d9 
lea.1 ret_paramWm(pc),a9 
lea.1 ErrTOT_COmment(pc),al 
return rts 
・eVen 
ret_para 画 dc.W 9 
dc. 1 9 
ds.1 1 
6TFTOF_CO 箇 還 Ent dc.b "error",9 
end 











第 4 一 11 図 sum を sum 1 に 改造 する 


第 4 -11 図 の 様 に , 先程 の 関数 に 第 3 の 引数 (int 型 で ポイ ンタ 渡し ) を 付け 加え を ます 。 そし て , 
戻り 値 を 返す の と 同時 に , 3 番目 の 引数 と し て 受け 取っ た 引数 の ポイ ンタ へ も 答え を 返し ます 。 
その 結果 を 見 る た め , 第 4 -12 図 の X-BASIC の プロ グラ ム を 実行 し て みて 下さ きい 。 ご覧 の 通り , 
次 の よう な 答え が 確認 出来 る は ず で す 。 





19 int a,b,x=10 

20 dim int d(9)=《1,2,3,4,5,.6,7,.8,.9,.19}) 

30 上 SS で SD おま 5! CE 玉生 まあ は 引き 数 が 3 つ に な っ て いる 
49 print "totall=",a 

59 print “total2=”,b 


Tun 
totall= 55 
total2= 55 
0k 

自 











第 4 一 12 図 sum 1 の 実行 例 


ご 覧 の よう に , 引数 と し て 渡し た は ず の b に 戻り 値 4 と 同じ 答え が 格納 され て いま す 。 こ の よ 
うに , ポイ ンタ と し て 引数 を 渡す こと で , 引数 と し て 渡す 変数 の メモ リア ドレ ス が 分 か り ま す 。 
前 述 の 通り , 配列 の 引数 は ポイ ンタ を 渡し て いま すか ら , 複数 の 答え を 返し た い 場 合 は 答え を 格 
納 す る た め の 配 列 変数 を 渡し て や れ ば いい わけ で す 。 
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4 一 4 シス テム コー ル こ 10CS コ ー ル 





























X68000 に は 非常 に 使い 易い IOCS (Input Output Control System) が あり ます 。 こ れ は IPL 
(Initial Program Loader) と 一 緒 に ROM (Read Only Memory) 内 に あり , 電源 を 切っ て も 
内 容 は 消 を ませ ん 。 こ の IOCS に は , Human68k や X-BASIC で も 使用 し て いる 便利 な マシ ン 語 
サブ ルー チン が ギッシリ 詰っ て いま す 。 ま だ, Human68k で サポ ー ト る され て いる シス テム コー ル 
も この 1OCS を 使用 し て プロ グラ ム る され て いま す 。 

外部 定義 関数 で は , マシ ン 語 に より ユー ザー が 独力 で 色々 な 処理 を 作ら な けれ ば な り ま せん が , 
この IOCS や シス テム コー ル を 使用 する こ と て で 広範囲 に 渡り , X68000 の ギッシリ 詰っ た 機能 を 使 


いこ な すこ と が 出来 る の で す 。 

二 iGkoSE 10 じ の 使い 方 

IOCS ユー ル を 使う 場合 の カギ は , trap 者 5 と いう 命令 で す 。 これ は , 68000 の マシ ン 語 命令 の 
中 で 5 特殊 な 命令 で 、 X68000 の 場合 , この 命令 を 受け 取る と デー タレ ジス タ 0 (d0) に 書き 込ま 
れ て いる 番号 の サブ ルー チン へ 処理 を 移し , その 処理 が 終わ る と trap #15 の 次 の 命令 か ら プ ログ 
ラム を 続け ます 。 

この 番号 (d0 へ 書き 込ま れる 番号 ) の こと を IOCS ユール 番号 と 言っ て 200 近 く の サ プ ブルー チン 
が あり ます 。 こ の サブルーチン に つい て は , 第 5 章 に 外部 定義 関数 で 使用 し た も の の 詳細 を 説明 
し て いま す が , この 他 の も の に つい て は X68000 活 用 研究 1 (塚越 一 雄 著 ) に 詳し く 載 っ て いま す 
の で 参考 に し て 下さ きい 。 

それ で は , 一 般 的 な IOCS ユー ル の 方 法 を 第 4 一 13 図 に 記述 し ます の で 第 5 章 の 記述 も 含め 参 
考 に し て 下さ きい 。 









前 の アプ ログ ラム か ら の 流れ 


moved #$xx,d9・・ xx 部 分 に [OCS コー ル 番 号 が 入る 


(その 他 の レジ スタ を モ セ モット ) 
trap #15 
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次 の 処理 へ | 





第 4 一 13 図 IOCS 使用 法 


この よう に X-BASIC は , ユー ザー の 能力 に 合わ せ て BASIC 自身 も 進化 し て いき ます 。 ま た 進 
化し た BASIC は 記述 も 簡単 に な り , 理想 に 近づい て いき ます 。 し か し , ユー ザー が 怠け て いる と 
BASIC も 進化 せ ず を の まま で いま す 。X-BASIC と は そう いう BASIC な の で す 。 


324ia2 の ja づ | 1 リコ ー ル の 実習 


き て , ここ て 実際 に IOCS ユール を 使用 し た 外部 定義 関数 を 作っ て み ま す 。 関 数 の 内 容 は 第 4 一 
14 図 の 仕様 書 通 り です 。 








第 4 一 14 図 外部 定義 関数 cur prn ( ) の 仕様 


IOCS ルー チン の 中 で 文字 列 を 画面 に 表示 する サブ ルー チン と , 指定 位置 カー ソル を 移動 き 
せる サブルーチン が あり ます 。 それ ぞ れ の IOCS ルー チン の デー タ は 第 4 一 15 図 の 通り で す 。 





IOCS 名 :B_PRINT 

IOCS コ ー ル 番号 : $ 21 

指定 レジ スタ : a 1 .1 (ロン グ ワ ー ド ) に 文字 列 先頭 アド レス を 格納 する 

処理 内 容 : a 1 に 格納 され て いる アド レス か ら 1 文 字 ず つ 現 在 の カー ソル 位 
置か ら 表 示し て いき ヌル コー ド (O ) を 発見 し た と ころ で 終了 す 
6 


IOCS 名 :B_LOCATE 
IOCS コ ー ル 番号 :$23 
指定 レジ スタ :d1. w・・・ カ ー ソ ル 桁 位置 
d2. ww・・・ カ ー ソ ル 行 位置 
処理 内 容 : d 1 に 格納 し て ある 桁 位置 と d2 に 格納 し て ある 行 位置 に より 指 
定 さ れる 場所 へ カー ソル を 移動 する 。 











第 4 一 15 図 cur prn に 使用 し た IOCS の デー タ 
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第 4 一 16 図 が この 関数 の ソー スリ スト で す 。 仕様 書 の 通り , 関数 名 は cur prn で す 。 この _ は ア 


ンダ ー バ ー と 言っ て スペ ー ス が 使え な いよ 


な 場合 に 使い ます が , 第 5 章 の 事例 で 紹介 する 外部 


う 
定義 関数 の ソー スリ スト の 中 で 数 多く 出 て きま す の て 注意 し て 下さ い 。 





素 本 玉林 玉 本 玉 本 本 本 本 本 本 


adr_init 
adr_run 
adr_end 
adr_system 
adr_break 
adr_input 
adr_reservel 
adr_reserve2 
adr_token 
adr_parameter 
adr_exec 


TeSeFVe 


杯 玉 来 来 素 素 玉 本 玉 玉 玉 玉 


token_table 


本 来 杯 杯 本来 本 玉 玉 本 本 率 玉 玉林 


Param_adr_table 


param_table_l 


ます すす も すす 3 すす すす 3 は 333 
exec_table 


本 林 本 本 玉林 林 本 本 素 本 


CUT_DPFT: 


count 





イン フォ メー ジョ ソン ・ テ ー ブ | ル 本 本 本 本 来 本 本 本 本 本 本 玉林 本 本 本 本 


dc.1 return 

dc.1 return 

dc.1 return 

dc. 1 return 

dc.1 return 

dc.1 return 

dc. 1 return 

dc.1 return 

dc.1 token_table 
dc.1 Param_adr_table 
dc. 1 exec_table 
dc. | 9,9,9,9,9 


トー クン ・ テ ー フ 7" 上ル 杯 本来 玉 玉 来 玉 本 本 本 キ 玉 本 本 李 末 本 本 玉 玉 本 玉 玉 本 本 


dc.b で ま ", 9.9 





" う メ ー タ ・ テ ー7 "上ル 素 本 本 本 玉 本 本 本 本 本 玉 玉 玉 李 本 本 本 率 素 玉 玉 玉 玉 


・eVen 

dc. 1 param_table_l 
dc.W 3 は PE トル た 】」 まき 4 
dc.W よい EBI 


シラ コウ アト "ルス ・ テ ー フ 7 ル 米 末 玉 本 玉 玉 玉 玉 玉村 玉 素 玉 本 玉 玉 玉 玉 本 
・eVen 


dc.1 - で せ ド ご PF 


FUNC MAIN キキ キキ 本 本 本 本 本 本 本 玉 林 本 率 本 本 本 玉 本 本 本 本 本 本 本 





even 

move. | 12(sp),a9・… 文 字 列 の ポイ ンタ アド レス 
move. 1 22(sp),d1…・ カ ー ソ ル x 位 置 

move.1 32(sp),d2・・‥ カ ー ソ ルッ 位置 

mmove.| #-1.d9 

addq. 1 #1.d9 

tst.b (a9)+ 

bne count 

mOVe.| d9,ret_param+B 
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昌 O0Ve. 1 12(sp),a9 
movedq き $23.d9 
trap #15 
mmOVed # き $21,d0 
move. | a9,a1 
trap # き 15 
cir。1 d9 
1ea.1 ret_paramm(pc),a9 
lea.1 erFTOT_CO 唱 表 ent(pc),al 
return rts 
・eVen 
ret_para 箇 dc.W 9 
di。 1 9 
ds. 1 1 
eFFOF_CO 箇 暫 6nt dc.b "error",9 
end 











第 4 一 16 図 cur prn の ソー スリ スト 


この 外部 定義 関数 を メーBASIC で 実際 に 使用 し た 例 が , 第 4 一 17 図 で す 。 ご 覧 の よう に, str 型 
に 宜 言 され た 変数 き に は "メーBASIC" の 7 文字 を 代入 し て あり ます 。 カーソル 位置 の 指定 用 に 宮 
言 る され た jint 型 の 変数 X、 y に は , それ ぞ れ width 64 の 画面 で ほぼ 中 央 に 位置 する 31 と 15 を 代入 
し て いま す 。 戻り 値 と し て 返っ て くる 文字 数 は z へ 代入 きれ ます 。 





19 str a="X-BASIC" 
20 jint x=31,y=15,z 
39 z=cur_prn(a,x,y) 
49 locate 9,9,1 

59 print “LENGTH=”"jz 
69 end 











第 4 一 17 図 cur prn の サン プル プロ グラ ム 


実行 結果 は 画面 中 央 に "X-BASIC" と 表示 され , 画面 左上 に は LENGTH=7 と 表示 され て いる 
と 思い ます 。 
る て , 次 に 少し 変わ っ た 実験 を し て み ま す 。 今 作っ た 外部 定義 関数 に , 文字 列 変数 で は な い 数 
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mMmMnununvnvnunununvnvnwnunvnvnunumvnvnvnvnwmunvnwmwnwAvmvnunumvnvnvnunvnvnvnvnununvnvnvnunvnVnvnunur 4-4 


値 型 の 変数 を 引数 と し て 実行 きせ て み ま す 。 





19 /*str a="X-BASIC” 

29 int x=31,y=15,z,a=309 
39 z=cur_prn(a,x,y) 

49 locate 9,9,1 

59 print "LENGTH=”jz 

59 end 

run 

引数 の 型 が 違い ます …-:30 行 
Ok 

自 











第 4 一 18 図 まち が っ た 使用 法 


この 様 に , 引数 は 外部 関数 の ヘッ ダ 部 分 で 決め られ だ もの 以外 で は , エラ ー に な っ て し まい ま 
す 。 し か し , ステ ー ト メン ト の print 文 は , 文字 列 や 数 値 な どど ちら も 使用 する こと が 出来 ます 。 
こう し て 考え て みれ ば , print 文 が 関数 で な く ス テー トメ ント で あっ た 訳 が 分 か り ま す 。 


( 注 ) 実際 に は 関数 に 出来 な い の で は な く て , 使い 易 さ や ., イン ター プリ タ 制 作 の 時 に 作り 易かっ た り 
な ど に より 選択 され た の か も 知れ ませ ん 。 実際 に , C 言 語 で は BASIC で の print 文 に 相当 す 
る printf と いう 関数 が 存在 し て いま す 。 


アル アジ シェ と 各 ン 8 シコ ンー ジル 算術 演算 子 








X-BASIC で は , 皆さん が 普段 使用 し て いる 算術 演算 (キー メー ェ ) の 他 に , 色々 な 算術 演算 子 が あり 
ます 。 



























デー ー イ ナス 符号 5 < 

ネ ブ 掛け 算 , 割 9 算 A*B, CD 
二 足し 算 , 引き 算 A 十 B, CーD 

\ mod 整数 の 除算 、 剰余 A ぎ B, CmodD 
shr shl 右 シ フト , 左 シ フト AshrB, AshlB 








演算 の 優先 順位 は , 一 般 的 な 数 学 の 法則 に 準じ て いま す 。 カッコ ユ を 使用 し て 演算 の 順 庁 を 変え る こ 
と も 出来 ます 。 
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4 -9. 外部 定義 半数 の 書式 (その 3 ) 























外部 定義 関数 に つい て 色々 と 説明 し て きま し た が , 外部 定義 関数 に と っ て ヘッ ダ の 重要 性 が 理 
解 出 来 た こ と と 思い ます 。 今 まで は , 関数 一 つ に 対し て この ヘッ ダ が 一 つ ず つ 付 いて いま し た 。 し 
か し , 前 述 の よう に 「 外 部 定義 関数 は X-BASIC 付 属 の 外部 関数 と 基本 的 に 同じ 構造 を し て い 
る 」 と し て あり まし た が , 各 外 部 関数 は , 関数 群 し し て *※*※*※. FNC の ファ イル の 中 に 2 個 か ら 
多い も の で 20 個 近く も の 関数 を 持っ て いま す (隠れ 関数 も 入れ れ ば も っ と 多く な り ま す )。 

結論 か ら 言 うと , ユー ザー が 定義 する 外部 関数 で も 複数 の 関数 を 結合 する こと が 出来 ます 。 1 
ファ イル に 関数 を 複合 化す る に は , ヘッ ダ に 秘密 が ある の で す 。 外 部 定義 関数 を 1 ファ イル に 複 
合 化 する ヘッ ダ は 第 4 一 19 図 の 様 に な り ま す 。 





本 本 本 本 本 本 本 半 計 玉 本 本 本 ※ 素 イン フォ メー ジョ ン ・ テ ー ブ ” ル 本 本 本 玉 玉 玉 玉 本 本 玉 本 玉 玉 本 本 


adr_inlt dc.1 return 

adr_run dc.1 return 

adr_end dc.1 return 

adr_syStem dc. 1 return 

adr_break dc.1 return 

adr_input dc.1 return 

adr_reservel dc. 1 return 

adr_reServe2 dc. 1 return 

adr_token dc. 1 token_table ・・・・・ー・・ ト -2 ッ テ -7" ル の 位置 
adr_parameter dc. 1 param_adr_table ・・・・A" う メー タテ -7 ル の 位置 
adr_exec dc.1 exec_table ・・・・・・・・・ 実行 7 ト " ル 24 テ -7" ル の 位置 
TeSerVve dc. 1 9,9,9,9,9 


玉 玉 玉 玉 玉 玉 玉 玉 玉 素 氷 束 束 トー クン ・ テ ー ブ ” ル 本 本 玉 玉 本 素 玉 水玉 玉 玉 玉 末 来 玉 玉 玉 玉 玉 ボ 


token_table dc.b "func1",9 
dc.b "func2",9 +" 【 1 】 
上 上 トド トー クシ ジテ チー ブル 
dc.b "funcN”",9,9 
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本 本 本 本 本 本 本 玉 玉 本 玉 本 本 八 " フ メー タ ・ テ ー ブ ノル 本 本 本 本 玉 玉 玉 本 
・even 

Paramm_adr_table dc.1 PaTa 画 _ ta 

dc. 1 Para 本 _ ta 

上 上 

dc. 1 PaTa 画 ta 





義 玉 玉 玉 玉 玉 玉 末 キキ 玉 玉 本 ツー フッ ゴウ アト "レス ・ テ ー ブ ” ル 玉 玉 本 杯 本 
・even 
exec_table dc. 1 func1l 
dc.1 func2 
dc.1 funcN 
本 本 玉 玉 半 素 玉 玉 謙 本 本 UNC 四 iT 本 李 玉村 本 玉 素 玉 素 本 
・even 
func1: 
関数 1 の マシ ン 語 部 分 
func2: 
関数 2 の マシ ン 語 部 分 
funcN: 
関数 N の マシ ン 語 部 分 
return rts 





まそ すす そそ す すす 】 


ble_1 
ble_2 3 
【 2 】 
ble_N キー ト -。 パラ メー タテ ー ブ ル 


第 1 関数 用 


Paramm_ table_1l dc.W 
para 和 mm_ table_2 dc.W 第 2 関数 用 【 4 】 

1 1 1 パラ メー タ TID テー ブル 
param_table_N dc.wW 第 N 関 数 用 


ます も も すす も さそ す 】 


| 【 3 】 
ll 実行 アデ ド レス テー ブル 








第 4 一 19 図 複数 の 関数 を 一 つの ヘッ ダ て 定義 する 


イン フォ メー ショ ン テ ー ブ ル に あげ られ て いる 三 つ の テー ブル (トー クン テー ブル , フ パラ メー タ 


テー プ ブル, 実行 アド レス テー ブル ) は それ ぞ れ 【1】, 【2】, 【3】 の 位置 を 示し て いま す 。 
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【 1 】 トーク ン テ ー ブ ル 

トー クン テー ブル に は , X-BASIC 側 で この 外部 関数 で 使用 され る 関数 名 を 定義 し て いま す 。 関 
数 名 は ご 覧 の よう に 複数 個 を 一 度 に 設定 する こと が 出来 ます が , 関数 名 と 関数 名 の 間 に は , 0 ( セ 
パレ ー タ ) を 置か な けれ ば な り ま せん 。 ま た だ, トー クン テー ブル 終了 を 示す 0 を 最後 の 関数 名 の 
後に も 置き ます か ら , 最後 の 関数 名 の 後に は "0", "0" と 二 つ の モ セパレータ が 入り ます 。 こ の 関 
数 名 の 並び は , 後に 出 て くる パラ メー タテ ー ブ ル や , 実行 アド レス テー ブル の 並び と 同 順に し て 
お か な けれ ば な り ま せん 。 

【 2 】 パ ラメ ー タ テー ブル 

パラ メー タテ ー ブ ル に は ,【 4 】 の パラ メー タ ID テー ブル の 位置 を 示す ラベ ル を , トー クン テ 
ー ブ ル て 並べ た 関数 名 の 順 で 設定 し ます 。 こ の パラ メー タ ID テー ブル に は 、. 関数 の 引数 と 戻り 値 
の 型 や 数 を 示す ID の 並び を 設定 し ます 。 

【 3 】 実 行 ア ドレ ステ ー ブ ル 

実行 アド レス テー ブル に は , トー クン テー ブル て 関数 名 を 置い た 順 で て. マシ ン 語 プロ グラ ム 本 
体 の 始ま る 位置 を ラベ ル 名 で 置き ます 。 

今 の ヘッ ダ を 使っ て 今 ま で に 作っ て きた 外部 定義 関数 を 一 つ に まとめ て み ま す 。 ま ず , 今 ま で 
に 作っ て きた 外部 関数 の マシ ン 語 プロ グラ ム 本 体 だ け を 第 4 一 20 図 一 第 4 一 22 図 の よう に 抜き 出 
し ます 。 





・even 
oddeven: move.| 12(sp),a9 
move. | #-1,d9 
count addq. | #1.d0 
tst.b (a9)+ 
bne count 
and.1 #1,d9 
mmOVe.| d9,ret_param+b 
clp。1 d9 
lea. 1 ret_param(pc),a9 
lea.! error_co 可 ment(pc),a1 
return rts 
.even 
Tet_para 箇 dc.WW 
dc. 1 
ds.1 1 
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FTFOF_CO 再 枯 6nt dc.b 


end 


"error”,9 





第 4 一 20 図 oddeven の マシ ン 語 本 体 





.even 
SU 還 : move. 1 
move. | 
lea. | 
交 1*。 1 
nextadd move. | 
add. 1 
subq. 1 
Cmp. | 
bne 
move, | 
clr.1 
lea.1 
lea. 1 


return rts 
.eVven 

Tet_para 箇 dc.W 
dc.1 
ds. 1 


GFFTOT_CO 箇 6nt dc.b 


end 





12(sp),a9 
22(sp) , d2 
19(a9),a9 
d9 
(a9)+,d1 
d1,d9 
#1,d2 
#9,d2 
nextadd 
d9,ret_param+b 
d9 


ret_param(pc),a9 


errOor_comment(pc),a1 


Yerror”,9 








第 4 一 21 図 sum の マシ ン 語 本 体 
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- even 
CUF_DPTn: OoVe. 1 12(sp),a9 
move. 1 22(sp) ,d1 
move.| 32(sp) , d2 
mOVe. | #-1,.d9 
count addq. | #1.d09 
tst.b (a9)+ | 
bne count 
move. | d9,ret_param+b 
move. 1 12(sp),a9 
mOVeq #$23,.d9 
trap #15 
mmOVved #$21,.d9 
move. | a9, a 1 
trap #15 
clr.1 d9 
lea. 1 ret_param(pc),a9 
lea.1 erTTOT_COmment(pc),al 
return rts 
.even 
ret_para 画 dc.W 9 
dc.1 9 
ds. 1 1 
BTTOT_CO 本 前 Gnt dc.b "error",9 
end 











第 4 一 22 図 cur prn の マシ ン 語 本 体 
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この 三 つ っ の 外部 関数 を 合体 きせ る わけ で す が , この ソー スリ スト を よく 眺め て みる と , 同じ 名 
前 の ラベ ル が あり ます 。 count, return, error comment, ret param で す 。 こ の よう に 分 まで は 
単独 で 作成 し て き て いる た め に 同一 関 数 内 で あれ ば 重複 し な い 限り どん な ラベ ル で も 使え まし た 。 
し か し , 一 旦 これ ら の プロ グラ ム を 合体 きせ る と な る に 重複 し て 定義 きれ て いる ラベ ル は , アセ 
ンプ ブル 時 に エラ ー と な っ て し まい ます 。 複合 化 し た 外部 定義 関数 を 作る 時 に は , ここ が 一 番 注 意 
し な けれ ば な ら な い 所 な の で す 。 

る て , この 重複 し た ラベ ル の 中 に イン フォ メー ショ ン テ ー ブ ル の 中 で 設定 きれ て いる ラベ ル が 
あり ます 。 return と いう ラベ ル が そう で す が ,。 これ は , ヘッ ダー つ に 対し て 一 つ し か 設定 する こ 
と が 出来 な い の で , マシ ン 語 プロ グラ ム 本 体 の 一 番 後 ろ の に 一 つ だ け 置 いて 、 どの マシ ン 語 プログ 
ラム も 終了 し た 後 は ここ に プラ ンチ し て くる よう に し ます 。 error comment や ret param も ど 
の マシ ン 語 プロ グラ ム か ら で も 共通 に 使え を を そう で す 。 後 は , 重複 し て いる ラベ ル を 別 な ラベ ル 名 
に し て や れ ば いい わけ で す 。 これら の 諸 注 意 に 基づい て 一 つ に まとめ , 先程 の 要領 で ヘッ ダ を 付 
けた も の が 第 4 -23 図 で す 。 





本 本 玉 玉 水玉 末 玉 玉 末 玉林 玉 玉 玉 玉林 玉 玉 玉 米 米 玉 玉 玉 玉 玉 素 米 未 玉 米 玉 玉 玉 玉 玉 米 米 玉 玉 玉 玉 玉 玉 玉 涼 玉 玉 玉 来 


* external function progra 因 ネ 
* NAMED "GOTTANI" by 宮原 哲也 * 
* build in oddeven & sum & cur_prn function ネ 


本 玉 玉 玉 玉 玉 末 来 玉 来 玉 玉 素 素 玉 玉 玉 玉 玉 来 玉 素 玉 玉 水素 玉 玉 素 末 来 来 玉 玉 来 玉 玉 素 玉 米 玉 玉 玉 玉 来 氷 来 玉 玉 玉 来 玉 


本 玉 玉 玉 玉 玉 玉 玉 素 玉 玉 玉 米 床 イン フォ メー ジョン ソン ・ テ ー ブ ノル 素 玉 玉 素 来 玉 玉 玉 玉 玉 来 来 素 玉 来 来 玉 素 米 素 玉 半 


adr_init dc.1 return 
adr_run dc. 1 return 
adr_end dc. | return 
adr_system dc.1 return 
adr_break dc.1 return 
adr_input dc. 1 return 
adr_reservel dc。! return 
adr_reSerVve2 dc. 1 return 
adr_token dc.1 token_table 
adr_paraWmeter ec。『 Param_adr_table 
adr_exec dc.1 exec_table 
FeSerVve dc. 1 9, 9,9,9,9 
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ネネ 水 本 本 本 本 本 キキ トー クソ ン ・ テ ー ブ ルキ 林 林 本 水 本 本 本 本 本 末 本 本 本 林 本 本 本 玉 本 





SS 


SN 


token_table dc.b 
dc.b 
dc.b 





本 玉 玉 来 来 玉 玉 玉 玉 玉 氷 氷 氷 来 八 " フ メー タ ・ テ ー ブ ルキ 素 玉 末 氷 玉 玉 本 玉 玉 玉 玉 玉 氷 玉 玉 玉 束 束 束 水玉 素 ボ 
・even 

Para 胃 _adr_table dc.1 
dc. 1 
dc. 1 


param_table_l dc.Ww 
S さ ミ 3 きき 
YK きま くじ SS まだ US 


para 間 _table_2 dc.W 


param_table_3 dc.w 


本 玉林 玉 玉 玉 玉 玉森 ツッコ ゴウ アト "レス ・ テ ー ブ 7 ルネ 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 米 玉 玉 米 素 玉 
even 

exec_table dc. | 夫人 き や きき 
dc. 1 SS 
dc.1 





末 末 本 玉林 末永 FUNC MAIN ネネ ネネ ネネ * 林 本 本 本 本 本 本 本 本 玉林 杯 来 水 玉林 本 本 








・even 
oddeven: move.1 12(sp),a9 
move. | #-1,d0 
count addq.1 #1,d9 
tst.b (a9)+ 
bne count 
and. 1 #1,d9 
move. | d9,ret_param+6B 
Ce』 d9 
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lea.1 
lea.1 


bra 


SU 還 ・ move. | 
move. | 
lea. 1 
clr.1 

nextadd move. | 
add. | 
subqg. 1 
cmp.1 
bne 
move. | 
@e 』 
lea. 1 
lea.1 


bra 


CUT_DPFD: mmOve. | 


OVe. | 
mmOVe. | 
| mmOVe. | 
count1 addq.1 
tst.b 
bne 
名 OVe. 1 


加 OVe. | 


骨 OVeq 


trap 





ret_paramm(pc),a9 
erTrOr_CO 本 ment(pc),a1 


return 


呈 来 素 素 素 玉 玉 玉 玉 玉 玉 玉 来 来 来 玉 玉 玉 末 求 氷 氷 玉 玉 水素 米 素 素 求 氷 来 炒 玉 素 玉 玉 来 玉 末 来 水玉 来 求 氷 氷 氷 玉 素 玉 ポ 


12(sp),a9 
22(sp),d2 
19(a9),a9 

d9 

(a9)+,d1 

d1,d9 

#1,d2 

#9,d2 

nextadd 
d9,ret_param+b 
d9 
ret_param(pc),a9 
error_comment(pc),a1 


return 


本 玉 本 水玉 玉 本 水玉 玉 玉 森本 本 玉 玉 玉 玉 玉林 玉 玉 玉 玉 玉 玉 玉 玉 玉水 水玉 玉 玉 玉 玉 素 玉 氷 玉 玉 水玉 玉 炒 米 玉 玉 玉 玉 


12(sp),a9 


22(sp) , d1 
32(sp) , d2 
#-1,d9 

#1,d9 

(a9)+ 

count1 
d9,ret_param+b 
12(sp),a9 


#$23,d0 
#15 





ww 第 4 章 外部 定義 関数 emmmvmvmannnvmvnvmmmnnnvnvnunnunmnunvnvnynnanunvnvmvnnnununumwnvmynaunununvmvnnngnunvmvnvnenunununvnvm 


明 OVed #$21,.d9 

mmove. | a9,a1 

trap #15 

CIF。 1 d9 

lea. 1 ret_param(pc),a9 

lea.1 eTTOT_CO 前 ment(pc),al 
return rts 


米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 氷 玉 WOTK ATGA 本 玉 玉 玉林 玉 玉 玉 玉 玉 玉 玉 玉 本 本 玉 玉 本 素 素 玉 玉 
・eVven 

ret_param dc.W 
dc. 1 
ds. 1 1 


eTTOT_COm 剖 6Gnt dc.b "error",9 


end 











第 4 一 23 図 三 つ の 関数 を まとめ た "GOTTANI" 


この 外部 定義 関数 を BASIC.CNF に 登録 する 時 に は , 今 まで に 登録 し て あっ た oddeven, sum, 
cru prn を 全て 削除 (BASIC.CNF 上 どけ で よい ) し て お か な けれ ば な り ま せん 。 こ れ は , ヘッ ダ 
部 分 で これ まで に 定義 し て きた 関数 名 が , 今 , 定義 し た 関数 名 と 重複 する た めで す 。 

それ で は , 今 作っ た 外部 定義 関数 を 使っ て 動作 の 確認 を し て み ま す 。 こ の 外部 関数 を テス ト す 
る に は , 今 ま で に 紹介 し て きた サン プル プロ グラ ム ( そ れ ぞ れ の 外部 定義 関数 を テス ト し た も の ) 
で も 確認 する こと が 出来 ます が 、 それ で は 面白 く な い の で ここ で 紹介 する プロ グラ ム 第 4 一 24 図 
で テス ト し て み ま す 。 





19 width 64 

2 int total, ji,x,y,Z 
39 dim int d(3) 

49 str a,b,c 

59 input "string ai:",a 
69 input "string b:”,b 








79 input "string c:",c 
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89 cls 

99 if oddeven(a)=9 then x=9:y=9 else x=59:y=39 
199 d(9)=cur_prn(a,x,y) 

119 if oddeven(b)=9 then x=9:y=39 else x=59:y=9 
129 d(1)=cur_prn(b, x,y) 

139 if oddeven(c)=9 then x=28:y=9 else x=28:y=30 
149 d(2)=cur_prn(c,x,y) 

159 total=su 箇 (d,3) 

169 locate 29,15,1:print "total strings length=”":total 
179 for i=9 to 3999:next 

189 end 











第 4 一 24 図 GOTTANI を 使っ て みよ う 


この プロ グラ ム は , GOTTANI.FNC の 中 に 入っ て いる 関数 を 全て 使用 し た も の で す 。 な か な 
か が "ごった煮" と いう こと で , 関連 の な い 関 数 どう し な の で , 結び 付け る の が 大 変 で す が , 入力 き 
れ た だ た 三 つ の 文字 列 の それ ぞ れ が 奇数 か 偶数 か で 表示 位置 を かえ てい ます 。 を その後, それ ぞ れ の 文 
字数 を 加え た も の を 画面 中 央 へ 表示 し ます 。 

これ まで に いろ いろ と 外部 定義 関数 に 付い て 解説 し て きま し た が ,68000 の マシ ン 語 を 使用 し た 
も の な の で , 分 か ら な い 方 も いる と 思い ます 。 し か し , ここ で 紹介 し た 68000 の マシ ン 語 は , 数 種 
類 し か 使用 し て いま せん 。 一 つ ず つ 確 認 し な が ら 6 覚え て いく こと で マシ ン 語 プロ グラ ム に 開眼 す 
る こと も あり ます 。 他人 の プロ グラ ム を 読む (解析 する ) こと か ら 第 一 歩 が 始ま り ま す 。 


X68 ユ エー ザー な ら 知 っ て いる 方 も 多い と 思わ れ ま す が , 有 名 な 隠し 機能 で す 。 ま だ 知ら な い 人 は 基 非 
箕 え で お きま し よう 。 
@ OPT. 1 と OPT. 2 を 同時 に 押す と 10 進 ・16 進 電卓 が 使え る 
@ OPT. 2 を 押し な が ら 電 源 ON で RS232C か ら デ バッ ガ が 使え る 
e BASIC で は , LIST は し . RUN は R. な ど と 省略 形 が 使え る 
@ 記号 入力 か ら 右 3 個 の キー を 押し な が ら 背 面 電 源 ON で テス トモ ー ド 
@ (OS の) SWITCH  ? で 拡張 スイ ッ チ 使用 方 法 が 表示 され る 
e RAM デイ スク 定義 で #GM128 な ら GRAM と メモ リ 両 方 使え る 
@ BASIC で STR A$ の よう に すれ ば $ 付 き の 名 前 も 利用 で きる 
@ DIR は も ちろ ん REN,DEL.TYPE で も ワイ ルド カー ド OK 
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アル ンチ と 遇 ンコ レー ルン マニ ュ ア ル に 載っ て いな い コ マン ド & 標 準 関数 








マニ ュ ア ル に 載っ て いな い コ マン ド 

【KILL】 
書式 | kill "ファ イル 名 " 
機能 | ファ イル を 削除 し ます 。 

【NAME】 
書 式 name " 新 フ ァイル 名 "。 "| 旧 フ ァイル 名 " 
機 能 ファ イル 名 の 変更 を 行い ます 。 

【CHDIR】 
書式 chdir "ディ レク トリ 名 " 

機 能 ディ レク トリ を 変更 し ます 。 

【CHDRV】 

書 : 式 chdrv "ドラ イブ 名 " 
機能 ドラ イブ を 変更 し ます 。 

【SEARCH】 
書式 search "ネネ 玉 玉 " (※ ま ネネ ※※※ は 、 探し た い 文 字 列 ) 
機 能 探し た い 文字 を 合 ん ど プ ログ ラム 行 を 表示 し ます 

【LSEARCH】 
書 式 lsearch "※※*※* ネ "(まま ※ ま は , 探し た い 文字 列 ) 
機能 | 探し た い 文 字 を 合 ん だ ど プ ログ ラム 行 を プリ ンタ に 出力 し ます 。 




















| 




















1 





























中 








マニ ュ ア ル に 載っ て いな い 禁 準 関数 








【FDELETE】 
書式 | {=fdelete (fn) 
引 数 |strfn fm…… ファ イル 名 





機 能 | fm で 指定 され た ファ イル を 削除 し ます 。 
Au 乱 f =0 の 時 削除 で きた 場合 
f ニー1 の 時 エラ ー が 発生 し た 場合 





E 





【FRENAME】 
書 式 | f=frename (old、new) 
引 数 | str old, new 
変更 し た い フ ァイル 名 
新しく 付け る ファ イル 名 
機 能 | ファ イル 名 を 変更 し ます 。 
戻り 値 |int f f=0 の 時 削除 で きた 場合 
f ニ ー1 の 時 エラ ー が 発生 し た 場合 
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ら -0 事例 集 の 書 

















第 4 章 で 外部 定義 関数 を 実習 し まし た が , ここ で は 実際 に ユー ザー が X-BASIC で 使用 し て 便利 
な 外部 定義 関数 を 紹介 し ます 。X68000 の ハー ドウ エア の 深い と ころ へ 入り 込む も の も あり ます か 
ら , ツー スプ ログ ラム の 打ち 込み に は 十分 注意 し て くだ きい 。 ま た , 出来 上 が っ た 外部 定義 関数 
は , basic.cnf に 登録 し な けれ ば な り ま せん 。 

それ で は , ここ で は 外部 定義 関数 を 紹介 する に あたっ て の 書式 に つい て 説明 し ます 。 

書式 1…… 関数 名 (ファ イル 名 と 兼用 ) 
章 の 副題 の 後に 付い て いる も の が 関数 名 で す 。 こ れ は , アル ファ ベッ ト の 大 
文字 で 書い て あり ます が , 定義 する 時 は 大 廊 字 , 小娘 字 ど ちら で も 使用 出来 
ます 。 ま た だ た, ソー スプ ログ ラム を 打ち 込む 時 に , ED.X を 起動 する と 思い ます 
が ED.X の 起動 時 に も この 関数 名 を 使用 し て 下さ る い 。 必 ず し も, この 関数 名 
で ファ イル 登録 し な く て も よい の で す が , basic.cnf を の ぞい た 時 どん な 関数 
が 登録 る きれ て いる か が 一 目 で 分 か り ま す の で , これ か ら も , 自分 で 作っ た 関 
数 も ファ イル 名 と 同じ に し て お く こ と を お 薦め ゆ し ます 。 

書式 2 …… 外部 定義 関数 の 仕様 書 (第 4 章 参 照 ) 
第 4 章 で 紹介 し た 外部 定義 関数 作成 時 に 役立つ 仕様 書 を 少し 改造 し た も ので, 
関数 の 内 容 紹介 し ます 。 内 容 紹介 も 第 3 章 の 記述 の 方 法 に 統一 きれ て いま 
す 。 

書式 3 …… ソー スプ ログ ラム (ED.X で その まま 入力 し て くだ きい 。) 
ソー スプ ログ ラム は , ED.X で その まま 入力 し て いけ ば 打ち 間違え さえ な けれ 
ば , 動作 する と 思い ます 。 打ち込ん だ 後 は . も ちろ ん ASJX に より アモ セン ブル 
し , LK.X で リン ク し た 後 は , 関数 名 の * ネ *※*※.X を *※※※.FNC に し て 下さ い 。 

書式 4 …… 使用 例 と 解説 (X-BASIC で の 使用 例 ) 
さて , せっ が か く 出来 上 が っ た 外部 定義 関数 も , 使わ れ て 初め て その 役目 を 果 
た し ます 。 こ こ で は 、 簡単 な X-BASIC に よる 使用 例 を 紹介 し ます 。 を の プロ 
グラ ム を 実行 し た 結果 が 画面 上 で 表示 され る も の に つい て は 極力 X-BASIC リ 
スト 後に run (実行 ) し て その 結果 を 載せ て あり ます 。 視 覚 的 に 見 せる こと が 
出来 な か っ た も の に つい て も 結果 を 克明 に 書き ます の で , デバ ッ グ の 資料 に 
し で P き 選 。 
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5-0 事例 集 の 書式 ew 


NMNMNMNVNMNMNMTMRMRMMNMMNMRMRMRMRMNMRMNMAMTMTMNMIMPMTMTMAMTMAMAMTMRMRMRMRVMNVNMNMTMNMAMPMTMIMATMAMAMRMPMRM TRNA 


この 章 で 紹介 する 外部 定義 関数 は 、 第 5 一 1 図 に あげ る も の で す 。 出 来る だ け 簡 単 な も の か ら 
順に 載せ て いま す 。 理解 の 度合 い に 併せ て , 関数 作成 に 役立て て 下さ い 。 











〔 関 数 名 〕 〔 機 能 【 難 易 度 〕 
代 TVCTRL 半生 キキ に (LLC テレ ビ 制 御 関数 TIN 1 
【 】 コ =】 OBBEEEEEEEEEREREPRERPPRPEERRPRET プラ イオ リティ 設定 関数 …… ぐ erieoeerermrr 2 
の MSGSET マウ スカ ー ソ ル ん 定義 関数 … 

信 MSCURSOR に om 使用 マウ ス の 選択 関数 で roo 

@XLINE し ET XOR ラ イン (グラ フィ ッ ク ) 関 数 …iiit…… 
@TLINE… 複合 関数 ……:… OR ライ ン ( テ キス ト 画 面 ) 関 数 …… の tr 5 
@TCLS ii テキ スト ペー ジ ク リ ア 関 数 ・2 
介 XCIRGCLE meeFrerysxrusrmoresroomnamenonn XOR ザ ボー グル (グラ フイ タク 0 ee や"PPCT 5 
借 FFILES oh 検索 機能 付き FILES 関 数 oro 5 
@POP UP iii 堆 ゅ プア み プ メー ュ 喧 関数 aeskcdoeedrideeok 5 











第 5 一 1 図 紹介 する 外部 定義 関数 の 難易 度 












































関係 演算 子 は , if 文 で の 判定 や while, until 等 で の 条件 式 で よく 使わ れ ま す 。X-BASIC で は , 
次 の ょ うな 関係 演算 子 の 使用 が 許さ れ て いま す 。 
関係 演算 子 内 容 使用 例 
時 等しい A=B 
く > 等 し てく な い A<>B 
に 小さい A<B 
> 大 きい A>B 
に ー 以 下 A<=B 
>ー ーー 中 A>ー=B 
演算 結果 が 正しけれ ば ー 1, 正しく な いと 0 となり ます 。 こ れ ら の 結果 は , 関係 演算 子 を 含め た 式 全 
体 の 値 と し て も 使用 出来 ます 。 
例 A= ニ (X>Y) カッ コ 内 が 正しけれ ば A= テ ー1, 正しく て な けれ ば A ニ 0 となり ます 。 
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つ の - |] テレビ コン トロ ー ル 関数 


「TVC 














仕様 書 1 








リス ト 1 

本村 玉 玉 李 本 玉 李 玉 玉 玉 玉 玉 玉 本 素 米 玉 玉 洲本 素 玉 素 玉 玉 玉 玉 素 玉村 本 素 玉 玉 末 本 本 本 本 本 素 玉 米 玉 米 米 玉 素 玉 玉村 本 
1 3 
に BASIC EXTERNAL FUNCTION PROGRAM LIBRARY ネ 
に * 
* 月 刊 マ イコ ン 別 了 冊 * 
玉 3 
* 昭和 6 2 年 9 月 30 日 制作 * 
本 本 
* PROGRAMED & Typed by 深沢 幸三 * 
に 3 
ネ CX 下 Y@T 民 上 L 》》 (Ver1i. 0) し 
玉 * 
本 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 本 素 玉水 玉 玉 米 玉 素 素 素 素 玉林 本 本 玉林 玉 玉 素 玉 玉 本 玉 米 玉 素 素地 素 玉 玉 米 玉 玉 玉 玉 末 玉 玉 玉 ※ 
第 equ $999C 
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int_val 


int_ret 


adr_init 
adr_run 
adr_end 
adr_system 
adr_break 
adr_input 
adr_reservel 
adr_reSerVe2 
adr_token 
adr_parameter 
adr_exeCc 


YeSeTVG 


token_table 


param_adr_table 


param_table 


exec_table 


tvctrl: 


aa 5-1 テレビ コント ロー ル 関 数 「TVCTRE。 


eqdU 


edu 


dc. 1 
dc. 1 
dc.1 


dc.1 


dc. 1 
dc. 1 
dc. 1 
dc. 1 
dc. 1 
dc. 1 
dc.1 


dc.b 


・eVen 


・eVen 


dc. 1 


・eVen 


move. | 


mOVeqd 


$9902 
$8001 


return 
return 
return 
return 
return 
return 
return 
return 
token_table 
Param_adr_table 
exec_table 
9, 9, 9,9,9 


tvctr1"。9,.9,0 


param_table 


int_val,int_ret 


tvctrl 
12(sp) ,d1 
#_tvctrl,d9 
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trap #15 
な まき を 。 1 d9 
lea.1 ret_param(pc),a9 
lea. 1 mSg_error(pc),al 
return rls 
- even 
Fet_param dc.W 編 
He。 1 9 
dc. | 1 
mSg_eFTOT dc.b "Error",9 











この 関数 に 使用 し た IOCS コ ユー ル は , 次 の よう な も の で す 。 こ の IOCS ユ ー ル は , レジ スタ d1 に 
ロン グ ワ ー ド の デー タ を 下記 の よう な 指定 で モッ ト し, IOCS コ ユー ル 番 号 を d0 に モッ ト し て trap 
#15 を 実行 する と 指定 し た 作業 を 実行 する も の で す 。 

IOCS コ ユー ル 番 号 : $OC 

IOCS 名 : TVCTRL 

指定 レジ スタ : d1.1 $01/$02/$03 ボリ ュー ム を 上 げ る / 下 げ る / 標 準 に する 


$04 チャ ン ネ ルコ ー ル 

$05 テレ ビ 画 面 

$06 音声 ミュ ー ト 

$07/$0D 電源 ON/OFF 

$08 テレ ビ / コ ンピュータ 

$09 テレ ビ / 外 部 , コン ピュ ー タ ノー マル / オ ー バ ー 
$0A "コン トラ スト ノー マル 
$0B/$0C チャ ン ネ ル ア ッ プ / ダ ウン 
$OE 電源 ON/OFF 切 り 替 ぇ 

$0F スーラ マー 1 

$10 一 $1B チャ ン ネ ル 1 一 12 

$1C テレ 画面 ($05) 

$1D コン ピュ ー タ 画面 ($05 十 $08) 
$1E スー フッ パー 1 ($05 十 多 0F) 
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MRMNMMAMNMAMAMRMRMRMRMR 内 内 MM 内 M 内 MM 内 内 内 内 M 内 入内 り 由 内 MM 内 MR 5 一 1 
$1F スー フッ パ ー 2 ($05 十 和 &0F 十 &0A) 
$20 十 上 記 電源 ON と 上 記 フ ァ ン クシ ョ ン の 実行 


テレ ビ コ ン トロ ー ル 関数 「TVCTRL」 


第 5 一 2 図 に 示す プロ グラ ム は , この tvctrl ( ) を 実際 に 使用 し て みた プロ グラ ム で す 。 こ の 
プロ グラ ム で は , プログ ラム が 進む に つれ て いろ いろ な テレ ビ コ ン トロ ー ル を し て いく も の で す 。 
この 関数 を 使え ば , 目覚 し 時 計 が わり に 起き た い 時 間 に デ ィ ス プレ イ に 電源 が 入り , 音量 を 少し 
大 き 目 に し て 起こ し て くれ た だ たり , 見 た い 番 組 が 始ま る 時 間 に チ ャ ン ネ ル を 替え て くれ だ た りな どい 
ろ い ろ と 応用 で きそう で す 。 





19 
20 
39 
140 
S9 
69 
79 
80 
90 
190 
119 
120 
139 
149 
159 
169 
179 
180 
199 
3200 
210 
220 
230 
249 





/* tvctrl test 


int ii 

tvctr1(5) : /* Change TV 
tvctrI(6) : /* Sound mute 
for i=1 to 15 


tvctrl(1) : /* Volume up 
nert 
for i=9 to 2090909 
next 
for ij=l to 39 


tvctrl(2) : /* Volume down 
next 
for i=9 to 20909 
next 
tvctr1(3) : /* Volume normal 
tvctrI(&HE) :  /* TV off 
for i=9 to 59999 
next 
print"That  s ゞ et! ど 


tvctrl(&HE) : /* TV an 


for i=9 to 5S9999 

next 

tvctrl1(8) : /* Change X689V9 
end 








第 5 一 2 図 tvctrl を 使用 し た サン プル プロ グラ ム 


245 


ww 第 5 章 X-BASIC で 役立つ 外部 定義 関数 ・ 事 例 集 ve 


第 5 一 2 図 は , tvctrl 関 数 を 使用 し た ディ スプ レイ コン トロ ー ル プロ グラ ム で す 。 流れ は 。 次 の 
よう に な っ て いま す 。 
1. コン ピュ ー タ 画面 か ら テ レビ 画面 に 切り 替え る 。 
音声 ミュ ー ト (消音 
徐々 に ボリ ュー ム を 上 げ る 。 
徐々 に ボリ ュー ム を 下げ る 。 
ボリ ュー ム を 標準 に する 。 
ディ スプ レイ の 電源 
7. コン ピュ ー タ 画面 に メッ セー ジ を 出力 する 。 
8. ディ スプ レイ の 電源 を 入れ る 。 
9. テレ 画面 か ら コ ンピュータ 画面 に 切り 替え る 。 
以上 の 処理 の 間 に そ の 状態 を し ば らく 保つ た め に for 一 next の 空 ル ー プ を 入れ て 時 間 を 稼い で い 
ます っ 


プロ グラ ム を 作っ て いく うち に だ ん だ ん 大 き な プ ログ ラム に な り 。 ま と まり が っ か な k く な っ で し ま 
うこ と が あり ます 。 従来 の BASIC に 比べ X-BASIC は 構造 化 き され た プロ グラ ム を 記述 する こと が 出 
来る よう に な り ま し た が , な か な か 慣れ る まで は 苦労 も 多い と 思い ます 。 そ ん な 時 に プロ グラ ム 中 へ 
REM 文 を 書き 込ん で お むく と 非常 に わか り 易 く な り ま す 。 

REM 和 ※* と 記述 し ます が , この 後に 書く 文字 等 は アロ グラ ム と し て 解釈 され な いた め に どん 
な 事 を 書い て も か まい ませ ん 。 自 由 に 書き 込ん で 下さ い 。 た だ し , あま り プ ログ ラム の 中 に REM 文 が 
多 す ぎる と 逆 に プロ グラ ム 自 身 が 読み に くく な り ま す の で 注意 が 必要 で す 。 で きれ ば , 定義 関数 の 先 
頭 や 難し い 処 理 を し よう 思っ て いる 部 分 等 に 限定 し た 方 が いい で し ょ う 。 

また , SAVE し た プロ グラ ム は ファ イル ネー ム で し か どん な プロ グラ ム な の か が 分 か り ま せん 。 
LOAD し た 後 LIST し た 時 プロ グラ ム の 先頭 に ぼん な プロ グラ ム で , いつ , 誰が 作っ た か な ど を 記 
入 し て お く 《 と すでに を の プロ グラ ム に つい て わか る の で . プロ グラ ム の 先頭 に REM 文 を 書き 込む こ 
と を 習慣 に し た 方 が いい と 思い ます 。 


の 〇 の 〇 | 選 。 で CO KO 
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ニョ ー 





仕様 書 2 











リス ト 2 





本 本 杯 本 本 本 本 本 本 本 本 本 本 本 本 玉村 玉 玉 本 本 玉林 本 キキ 本 玉 玉 本 本 玉 玉 涼 玉 本 林 杯 氷 玉 本 本 玉 本 玉 玉 素 玉 玉 玉 本 ボ 


BASIC EXTERNAL FUNCTION PROGRAM LIBRARY 


月 刊 マ イコ ン 別冊 


PROGRAMED & Typed by 宮原 哲也 


% 《 巨人 民 まき 》》 (Wsr1, 0) 





ネ キネ 
ネ ネ 
ト ] ネ 
玉 玉 
ボ に 
* 昭和 6 2 年 11 月 3 日 制作 * 
ネ キ 
キ ネ 
ネ ネ 
素 
ポ 玉 
玉 ネ 


本 本 本 六 本 本 本 玉 玉 玉 玉 本 玉 李 玉 玉 本 玉 玉 六 杯 米 玉 玉 玉 半 玉 本 杯 玉 玉 玉 米 玉 玉 玉 玉 玉林 玉 玉 玉 玉 玉 玉 玉 米 本 玉 玉 玉 
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_PTi eqU $e82590 
_SUDeF edu $ff20 
.text 


本 玉 玉 米 玉 玉 林 米 玉 末 玉 米 米 玉 本 玉 米 末 玉 洲本 本 末 本 玉 米 玉 本 玉 米村 玉林 玉 玉 本 本 玉 玉 玉 玉 


int_val edu $99092 
int_ret edu $8091 


キネ キキ キキ キキ キキ 本 キ 玉林 本 玉林 村 末 林 玉 本 林 本 玉 玉 本 玉林 水 本 本 玉 本 本 本 


adr_init dc. | return 
adr_run 本 人 return 
adi_end dc. | return 
adr_system 遂 。 return 
adr_break dc. 1 return 
adr_input dc. 1 return 
adr_reServel dc. 1 return 
adr_reServe2 得 民 8 return 
adr_token dc.1 token_table 
adr_parameter dc. 1 Daram_adr_table 
adr_exec dc. | exec_table 


FeSerVve dc. | 9, 9, 9,9,9 


本 本 炒 玉 本 水玉 本 涼 米 玉 玉 玉 素 玉村 玉 玉 米 米 玉 本 玉村 玉 玉 玉 玉 米 玉 米 米 米 玉林 本 玉林 素 玉 玉 米 玉 玉 


token_table dc.b "pri",9,.9 


北林 相本 玉 ポキ 玉 玉 玉 北 玉林 本 本 本 本 玉村 玉 米 玉 玉 玉村 六 玉 水 水玉 玉 玉 玉 米 米 玉 


.even 
param_adr_table dc.1| param_table 
param_table dc.w int_val 

dc.w int_ret 
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・eGVen 


exec_table 人 He。 1 


.・eVen 
PT1i: 


mmOVG・, 


ep 
dc.W 

addq. 
mOVG. 
mOVG. 


mmOVG. 


mOVB. 
mOVe. 
mOVe. 
dc.W 


addq. 


GIF。 1 


lea. 1 


lea.! 


return rts 


・eGVen 


ret_param dc.W 
dc. 1 
dc. 1 





| 


1 
1 
1 
1 


ネネ 本 キキ 本 本 キネ \ 北 玉 玉 玉 本 キ 玉 米 球 米 米 玉 玉 玉 玉 玉 本 玉 涼 玉林 本 水玉 本 玉 玉 玉 半 半 玉 


DF 1 


水 杯 本 本 本 本 杯 本村 本 本 本 玉 玉 玉 本 ギ ギ 玉水 玉 玉 米 玉 洲 玉林 本 本 玉 本 洲 玉 米 北米 玉 玉 玉 玉 玉 玉 


12(sp),hikisuu 


-(sp) 
_SUPer 
#4, sp 
d9,sspbuf 
uSp,a0 


a9,uspbuf 


Priority 


uspbuf,a9 
a0,usp 
sspbuf,-(sp) 
_SuDer 


#4,.sp 


d9 


ret_param(pc),a0 


mSg_error(pc),al 


関数 「PRI」 ee 
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mSg_eFTOF dc.b ? 外 部 関数 エラ ー で す ",9 
SSpbuf dc. 1 9 
uspbuf dc. 1 9 
hikisuu dc. 1 9 
玉 玉 玉 本 玉 玉 玉水 玉林 玉林 末 玉 玉森 玉 玉 本 氷 林 本 涼 玉 玉 本 本 水玉 玉 玉 玉 来 本 水 本 本 ボ 本 水 本 本 水 本 本 玉 
・eVen 
Priority: 
move.| hikisuu,d9 
cmp. 1 #$1,d9 
beq pril 
cmp. | #$2,.d0 
beq pri2 
cmp, | #$3,.d0 
beq DY IS 
cmp. | #$4,d9 
beq pri4 
cmp. | #$5,d0 
beq pFi5 
cmp. | #$6,d0 
bra pri6 
move.1 #-1,.d0 
move. | d9,ret_param+b 
rts 
pril mOVe.W #$2499,d1 
bra cont 
PFIi2 mOVe.W #$1809,d1 
bra cont 
pri3 mOVe.W #$2199,d1 
bra cont 
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pri4 


pri5 


prib 


cont 





5-2 スプ ライ ト ・ グ ラフ ィ ッ ク ・ テ キス ト の プラ イオ リティ 設定 関数 「PRI」w 


mOVe.W #$9999,d1 
bra cont 
mOVe.W #$9690,d1 
bra cont 
mOVve.W #$1290,d1 
mOVe.W _pri,d9 
and.W #$c9ff,d9 
OF.W d9,d1 
mOVe.W d1,_pri 
clr.1 d9 

move. | dO,ret_param+b 
rts 

・ end 








この プロ グラ ム で は , 


IOCS コ ユー ル を 使用 し て いま せん 。 直 接 画面 コン トロ ー ル 用 LSI の 内 容 を 


書き 換え て いま す 。X68000 の バス (アド レス や デー タ ) に は 数 多く の LSI が つなが っ て いま す 。 
その 中 に 画面 を 制御 する 5 の が あり ます が , その LSI の 機能 の 一 部 に 、 グラフィック , テキ スト , 
スプ ライ ト の プラ イオ リティ を 決定 する 部 分 が あり ます 。 そこ を 直接 書き 換え て , それ ぞ れ の 画 
面 の 優先 順位 を 決め て いま す 。 を その 一 部 分 と いう の は 次 の 通り で す 。 

X68000 の アド レス バス の E82500H 番 地 の 内 容 


26 


24 22 2 18 16 14 


17 5| 3 


wlsls 中 本 ER 中 品 本 RIN 


優先 順位 高 
1 

優先 順位 低 
禁 下 





円 口 円 口 品 

0 0 0 0 0 0 

0 1 0 1 0 1 

1 0 1 0 1 0 

1 1 1 1 1 1 
スプ ライ ト テキ スト グラ フィ ックス 


それ ぞ れ の 2 ビット ずつ て 優先 順位 を 設定 し ます が , 同じ 優先 順位 を 設定 する こと は 出来 ませ 


ん 。 
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19 
29 
39 
49 
59 
69 
79 
89 
99 

169 

119 

129 

139 

149 

159 

169 

179 

189 

199 

299 

219 

229 

236 

249 

259 

269 

279 

289 

299 

369 

319 

329 


/* pri test 

int x,i。J | 

int r=299,p=5 

float y 

に Ad 語 ・ 

dim str md(6)=《 の" GR>TX>SP", "GR>SP>TX". 

"TX>GR>SPP, 7SP>GR>TX”, 
”"SP>TX>GR", "TX>SP>GR”) 

dim char spr(255)=( 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,9, 
9,19,19,19,19,19,19,19,19,19,19,19,19,.19,19,9, 
10。9。9. 9。9.9.9.9.9.9.9.9.9. 10, 0。 
9,19,9.8.8.8.8,.8.8.8,8,8,.8.9,19, 9, 
9.19,.9.8.7.7.7.7.7.7.7,7,8,9,10, 9, 
9,19,9.8,7.6.6,6,6,6.6,7,8,.9,10.9, 
9,10,.9, 8,7,6,5,5, 5,5, 6, 7, 8, 9, 10, 9, 
9,10,9,8,7,6,5, 4,4,5,6,7.8,9,19, 9, 
9, 10, 9, 8, 7, 6, 5, 4, 4,5, 6, 7, 8, 9, 10, 6, 
9.19.9.8。 7 5.5.5。 5.5。6。 7.8。9。 10。 9, 
9, 19, 9, 8.7, 6.6, 6, 6, 6, 5, 7, 8, 9,19, 9. 
9,19.9.8.7.7.7.7.7.7.7,7,.8,.9,10, 9, 
9, 10, 9, 8, 8, 8, 8, 8,.8, 8, 8, 8,8,9,19,9, 
9, 10,9,9,9,.9,9.9,9.9.9,9.9.9,19, 9, 
9,19,19, 19, 19, 10, 10,19,19.19,19,10,19,19.10,9, 
9, 9, 9, 9,9.9,.9.9,9,9,9,9,9,9,9,9 ) 

Screen 1,3,1,1 

sp_init() 

sp_disp(1) 

sp_def(1,spr,1) 

for i=l to 15 

sp_color(i.hsv(190, 31, 31-i*2) ) 


next 
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339 
349 
350 
369 
370 
3809 
390 
499 
419 
429 
430 
440 
450 
469 
470 
480 
499 
599 
510 
520 
539 
549 
550 
569 
570 
580 
599 
690 
610 
620 





for i=l to 15 
fil1(i*15,9,i*15+15.511.hsv(96,31,i*2) ) 
next 
for i=@ to 15 
for j=9 to 15 
locate j*4.i*2:print" 衣 の : 
next 
next 
lecate 45.9:print md(5):" pri( 5 )“ 
while 1 
for x=-299 to 2899 
ト =inkey$(9) 
if ト <>"" then pri_set() 
y=Sqdr(r*T-X キ X) 
Sp_move(l.x+255、y+2S6、1) 
next 
for x=-299 to 2M9 
ト =in ト ey$(9) 
if k<>"” then pri_set() 
y=Sqr(r*r-x ネ x) 
Sp_move(1,.256-x,256-y, 1 ) 
next 
endwhile 
end 
func pri_set() 
Pp=p+1 
if p=7 then p=1 
locate 45,@:print md(p):" pri( pi の) 
pri(p) 


endfunc 








第 5 一 3 図 pri を 使用 し た サン プル プロ グラ ム 
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この プロ グラ ム は , 実行 後 し ば らく する と ディ スプ レイ に グラ フィ ッ ク 画 面 に よる グラ ディ エ 
ーション が 左 半分 に 表示 され, テキ スト 画面 に 全角 文字 の 記号 で 星 が 表示 る され, スプ ライ ト 画 面 
に は 赤い ブロ ッ ク が 移動 ( 格 円 運動 ) を 始め ます 。 こ の 状態 で 画面 右上 に は , 現在 の スプ ライ ト 。, 
テキ スト , グラ フィ ッ ク の 優先 順位 が 表示 きれ て いま す 。 こ こ で キー (何で も よい ) を 押す と こ 
の 優先 順位 が 一 つ ず つ 変 わっ て いき ます 。 各 画面 が 手前 中間, 後ろ に 変化 する こと を 確認 し て 
下さい 


o 


アル ンス と ポン ショ ンー ルン スー パー イン ボーズ に つい て 


X68000 で は , X1 か ら 好 評 ど 











っ た スー パー イン ポー ズ 機 能 を その まま 引き 継い で いま す 。 スー パー イ 
ン ボ ポー ズ 機 能 ほ と し いう の は , テレ ビ 画 面 に コン ピュ ー タ 画面 を 重ね 合わ せ て 表示 出来 る に し いう こと で す 。 
実際 に この 機能 を 使用 する 場合 に は , 共 干 の 手続 き を 必要 と し ます 。 こ れ は , テレ 画面 を 構成 する 
同期 信号 と コン ピュ ー タ 画面 を 表示 する た め の 同 期 信号 が 違う た めで , これ に より スー パー イン ボー 
ズ 出 来る コン ピュ ー タ 画面 制約 を 受け ます 。 

スー パー イン ボー ズ す る こと の 出来 る の は , 低 解像度 の 面 画 どけ な の で , SCREEN 命令 で , 3 番目 
の 引数 は 0 と し な けれ ば な り ま せん 。 また, 表示 サイ ズ も 512X512 以 下 で な けれ ば な り ま せん 。 


で は , 実際 に スー パー イン ポー ズ 画 面 に し て み ま す 。 次 の 手順 で 実施 し て 下さ い 。 





手順 (1) SCREEN 1, 2, 0、 1 と ダイ レク トモ ー ド で タイ プ す る 。 
( 2 ) OPT.2 キ ー を 押し な が ら 、 テン キー の 上 | を 押す 。 





以上 で 画面 に は テレ ビ の 画面 と コン ピュ ー タ 画面 の 合成 が 映し 出さ れ て いる は ず で す 。 テ レビ を 見 な 
が ら プ ログ ラム する 人 に は 重宝 な $ も の で す が , コン ピュ ー タ 画面 は テレ ビ 画 面 よ り は み 出 し て 表示 さき 
れ て いる た め 残 念 な が ら 行 番号 や 左端 に ある カー ソル が 見 えま せん 。 どうやら , ブログ ラム を 作っ て 
か ら 楽 し か r ほ か は な いよ ょ よう で す 。 例えば, ビデ オカ メラ て で 撮っ た 絵 に 文字 を 挿入 する と か タイ トル 画 
面 を 作る と か …… 使い 方 は あな た 次 第 で す 
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- づ マウ スカ ー ソ ル の 定義 関数 
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リス ト 3 





本 玉林 玉 氷 水玉 本 本 玉 玉 本 玉 玉 米 本 玉 玉 本 玉 玉 素 玉 玉 米 玉 玉 素 玉 玉 玉 玉 玉 玉 米 米 玉 玉 未 炒 玉 玉 玉 玉水 水玉 来 玉 末 水 玉 玉 


キ 3 
* BASIC EXTERNAL FUNCTION PROGRAM LIBRALY ネ 
キ は 
* 月 刊 マ イコ ン 別冊 * 
* * 
* 昭和 6 2 年 6 月 22 日 制作 * 
キキ は 
PROGRAMED & Typed by 深沢 幸三 * 
ネネ キネ 
3 く 〈《 MOUSE CURSOR SET 〉〉> * 
ネ は 


本 水玉 本 玉林 本 本 本 本 本 本 本 本 玉 玉 本 炒 玉 村 玉 本 玉森 玉 玉 玉 水 水玉 玉 米 玉 玉 玉 玉 本 玉 玉 玉 玉 玉 炒 玉 炒 玉 玉 玉 玉 玉 玉 米 玉 


MS_PATST equ $007a 
int_val edu $9902 
int_vp eqU $9032 
int_ret equ $8002 
adr_init dc. 1 return 
adr_run dc. | return 
adr_end diGi 1 return 
adr_system 品 iei。 return 
adr_break dc. 1 return 
adr_input dc. | return 
adF_reServel dc. 1 return 
AdF_TeSeTVe2 dc. 1 return 
adr_token dc. 1 token_table 
adr_parameter dc.1I Param_adr_table 
adF_eXeC dc. 1 exec_table 
FeSerVve dc. 1 9,.9,.9,9,.0 
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token_table dc.b "mscset",9,9.9 
.even 

param_adr_table dc.1 Param_table 

param_table dc.W int_val,int_val,int_val 
dc.w int_vp,int_ret 
.eVen 

exec_table dc.1 mScsSet 
.・eVen 

mSCSet・: move. | 12(sp),d9 
move. | 22(sp) ,d1 
move.| 32(sp),d2 
move.| 42(sp),a0 
lea. 1 19(a9@),a9 


move.W  d9,pn 

move.Ww dl,buffer_adrl 

move.w  d2,buffer_adr2 

move. | #32,d9 

lea.1 pattern,a1 
loop move.| (a9)+,d5 

move.w  d5,(a1)+ 

subq.1| #1,.d9 

cmp.1 #9,d9 


bne loop 


lea.1 buffer_adrl,al 
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MOVe.W pn,d1 
moVveq #MS_PATST, d9 
trap #15 
0 視 。 d9 
lea. 1 ret_param(pc),a0 
lea.! mSg_error(pc),a1 
return rts 
Pn dc.W 9 
buffer_adr1l dc.w 9 
buffer_adr2 dc.w 9 
pattern ds.W 16 
ds.W 16 
.eVeh 
Fet_param dc,.W 9 
dc. | 9 
dc, 1 1 
mSg_erFOF dc.b "Error",9 











この プロ グラ ム で 使用 し た IOCS コ ユール は , 次 の 通り で す 。 
IOCS コ ユー ル 番 号 :$7a 
IOCS 名 : MS_PATST 
旧 定 レジ スタ : d1.w ニ カー ソル の 番号 
al1.1= ニ パタ ー ン の デー タ 格 納 ア ドレ ス 
00 (a1) .w ニ パタ ー ン の 諾 隅 か ら マ ウス 座標 まで の 距離 
パタ ー ン の 左 隅 を マウ ス 座 標 に する 場合 は 0 
パタ ー ン の 右 隅 マウス 座標 に する 場合 は 15 
02 (a1) .w ニ パタ ー ン の 上 隅 か ら マ ウス 座標 まで の 距離 
パタ ー ン の 上 隅 を マウ ス 座 標 に する 場合 は 0 
パタ ー ン の 下 隅 を マウ ス 座 標 に する 場合 は 15 
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04 (a 1 ) .w ニ パター ン の 影 に する デー タ (16 ワ ー ド 以上 ) 
20 (a1) .w ニ パタ ー ン 表示 デー タ (16 ワ ー ド 以上 ) 
この 関数 を 使っ た サン プル ブロ グラ ム は , 本 章 の 最後 に ある TEXT_DRAW.BAS に あり ます の 
で 参考 に し て 下さ る い 。 し か し , この ms_cset で 定義 せる こと が 出来 る パタ ー ン は 一 つ だ け で す 。 こ 
の 関数 を 使用 し て マウ スカ ー ソ ル を 作る の は , 面倒 な 作業 で す 。 頑 張っ て オリ ジ ナ ル の カー ソル 
を 作っ て みて 下さ きい 。 

















パソ コン を 使っ て いる 時 に , 突然 テレ ビ が 見 た く な っ た 時 に 、X68000 は あな た の 味方 で す 。 秘 密 の 
キー (な に も ぅ 秘密 で は な い ) で すぐ テン レビ 画面 に 早変わり 。OPT.2 二 テン キー で テン 画面 を 操作 出 
来 ま す 。 リモコン に 付い て いる 操作 は すべ て 出来 ます 。 キー 操作 は 次 の 通り で す 。 

《 キ ー 操 作 ) 
レン 昌 動作 
[OPT.2]+ 0 消音 
|) 標準 音量 
.( ビ ピリ オド) テレ ビブ パ ソコ ン 切 替 
1 1 チャンネル 
2 2 チャンネル 
3 3 チャ ン ネ ル 
4 4 チャンネル 
5 5 チャ ン ネ ル 
6 6 チャ ン ネ ル 
7 7 チャン ネル 
8 8 チャ ン ネ ル 
9 9 チャンネル 
10 チ ャ ン ネ ル 
ネ 11 チ ャ ン ネ ル 
12 チ ャ ン ネ ル 
[CLR チャ ン ネ ル 表 示 ON/OFF 
十 スー パー イン ポ ボーズ ON/OFF 
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語 -2 攻 したい マ ウス カー ソル 番号 を 設定 する 関数 




















リス ト 4 _ 
本 本 本 キキ キキ キキ 本 玉林 本 キキ 本 本 本 本 本 玉林 素 本 玉 本 玉 玉 玉林 氷 氷 玉 本 素 玉 玉 洲 本 米 米 玉水 玉 米 
1 ネネ 
* BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
素 玉 
* 月 刊 マ イコ ン 別 司 * 
素 3 
* 昭和 6 2 年 7 月 25 日 制作 ネ 
玉 
キ PROGRAMED & Typed by 深沢 幸三 * 
に 円 
キ く て 〈 く 人 MSCURSOR 〉 〉 (VeFbl。⑩) に 
玉 * 
ト そ そそ す を を を すす する を すす すす する を キ すす すす すす すす す を そる すす すす すす を キミ キ す すす そそ すす すす を すす する 3】 
MS_SEL equ $997b 
int_val eqU $90992 
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int_ret equ $80990 
adr_init dc. 1 return 
adr_run dc. | return 
adr_end dc. 1 return 
adr_system dc. 1 return 
adr_break dc.1 return 
adr_input dc. 1 return 
adr_reServel dc.1 return 
adr _reSerVe2 dc.1 return 
adr_token dc. 1 token_table 
adr_parameter dc. 1 param_adr_table 
adr_exXec dc. 1 exec_table 
FeSerVe dc. 1 9, 9, 9, 9,9 
token_table dc.b "mScuFrSoF",9, 9,9 
- even 
Param_adr_table dc.1| param_table 
param_table dc.W int_val,int_ret 
.eVen 
exec_table dc.1 SCUTSOT 
. even 
mSCUTSQT: move. | 12(sp),d2 


move.w  d2,d1 
mOVeq #MS_SEL,d9 
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trap #15 
Ge d9 
lea. 1 ret_param(pc),a0 
lea. 1 mSg_error(pc),al 
return rts 
.even 
ret_param dc.w 9 
dc. 1 9 
RI 1 
mSg_error dc.b "Error",9 


この 関数 に 使用 きれ て いる IOCS コ ユー ル は 次 の 通り で す 。 比較 的 に 簡単 な IOCS コ ユー ル で す 。 マ ウ 
スカ ー ソ ル の 番号 を 指定 レジ スタ の d1 に ワー ドサ イズ で 設定 し て IOCS ュ ユー ル 番 号 を d0 に モッ ト し 
て , trap 斗 15 と する だ け で す 。 

IOCS コ ユー ル 番 号 :$7b 
IOCS 名 : MS_SEL 
指定 レジ スタ : d1. し ニカ ー ソ ル 番 号 

この 関数 を 使っ た サン プル プロ グラ ム は , 本 意 の 最後 に ある TEXT _ DRAW.BAS に あり ます の 

で 参考 に し て 下 き い 。 
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複合 関数 
つら - つ PLINEr 









XLINE は グラ フィ ッ ク 画 面 , XOR モー ド (交点 で 色 の XOR を と る ) で 線 を 引き ます 。 TLINE 
は テキ スト 画面 に . OR モー ド (交点 で 色 の or を と る ) で 線 を 引き ます 。 TCLS は テキ スト の ペー 
ジ 単 位 の クリ ア で す 。 

この 関数 は , 一 つの ファ イル に 三 つ の 関数 が 入れ て ある 複合 関数 で す 。 

( 1 ) XLINE 


仕様 書 5 








19 int x1,x2,y1,y2,c,i 

29 for i=9 to 999 

3 x1=rand()/64 

49 yl=rand()/64 

59 x2=rand() /64 

69 y2=rand() /64 

70 c=rand()*2 

89 xline(x1l,y1,x2,y2,c) 
99 next 

199 end 











第 5 一 4 図 XLINE の サン プル プロ グラ ム 
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この プロ グラ ム を 実行 する 前 に . ダイ レク トモ ー ド て で screen、 1, 3, 1, 1 を 実行 し て 下さ い 。 
xor で の 描画 は 交点 の 色 が 論理 演算 で xor を と り ま す 。 従 っ て 同じ 色 で 同じ 位置 に 線 を 引く と 表示 
され て いな い 状 態 に な り ま す 。 こ れ は , グラ フィ ッ ク 画 面 が 1 枚 し か な い 時 に 有効 で , 重なっ だ 
図形 か ら あ る 図形 だ け を 消す よう な 場合 に 指定 され た 図形 と 交 点 を 持つ 図形 の 交点 を 消 き なく て 
済み ます 。 

X-BASIC の 乱数 系 は , 初期 化 さ きれ な いと 同じ 乱数 を 発生 し ます か ら , 一 度目 に 実行 し た 時 は 一 
回 目 に 書い た 線 を 一 本 ずつ 消し て いき ます 。 そ の た め , 一 回 目 に 書い た 線 を 消 き な いよ うに , プ 
ログ ラム 中 に は screen 廊 が 書い て あり ませ ん 。 


( 2 ) TLINE 


仕様 書 6 





この 関数 を 使っ た サン プル プロ グラ ム は , 本 章 の 最後 に ある TEXT_DRAW.BAS に あり ます の 
で 参考 に し て 下 き い 。 

この tline 関 数 で は , テキ スト 画面 を わあ た か も グラ フィ ッ ク 画 面 の よう に 使用 し て いま す 。 こ れ 
は , X68000 の テキ スト 画面 が フル ビッ トマ ッ プ 方 式 で ある た め に 実質 的 に は 、 グラ フィ ッ ク 画 面 
の よう な 使い 方 が 出来 る から で す 。 こ の テキ スト 画面 は # ペー ジ あ り , 0, 1 ペー ジ で は 文字 が , 
2, 3 ペー ジ で は マウ ス が 使用 きれ て いま す 。 従っ て マウ ス を 使用 する よう な プロ グラ ム で は , 
2, 3 ページ の 使用 は る けた 方 が よい で し ょ う 。 

さき さて, テキ スト 画面 を シグ ラ フィ ッ ク 画 面 の よう に 使用 し て 作っ た 絵 を 消す 方 法 で す が , 次 に 紹 
介する tcls 関 数 を 使用 し て 消去 で きま す が , 面白 消し 方 で 、 テキ スト 画面 クリ ア の cls ス テー トメ 
ント が あり ます が , これ を 使っ て tline で 描い た 絵 を 消す こと が 出来 ます 。 グラフィック の よう に 
描い て , cls で 消す 。 こ ん な こと が で きる の も X68000 の 楽し み の 一 つ で す 。 


( 3 ) TCLS 


仕様 書 7 
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この 関数 を 使っ ね サン プル プロ グラ ム は 、 本 章 の 最後 に ある TEXT_DRAW.BAS に あり ます の 


で 参考 に し て 下 き い 。 


この 関数 は ,、 さき ほど 紹介 し た tline に より 指定 し た テキ スト ペー ジ に 線 を 引く こと が 出来 まし 


た が , この tcls 関 数 は 指定 し た テキ スト ペー ジ だ け を 消去 する こと が 出来 ます 。 
①⑪) 一 3) の 関数 を 一 つの ヘッ ダ に まとめ た も の が リス ト 5 で す 。 


リス ト 5 





本 米 玉 玉 玉 米 玉 玉 玉 米 洲 玉 玉 玉 玉 本 本 玉 本 本 玉森 玉 本 玉 玉 玉 本 玉 玉 玉 玉 玉 玉 玉 杯 玉 玉林 玉 玉 玉 玉 本 玉 涼 玉 玉 玉 玉 


玉 3 
* BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
* * 
* 月 刊 マ イコ ン 別冊 * 
] ネ 
* 昭和 6 2 年 8 月 11 日 制作 * 
キキ 玉 
* PROGRAMED & Typed by 宮原 哲也 * 
1 玉 
* 〈 く XLINE TLINE TCLS 〉> (Ver1.0) * 
キ 3 
本 本 本 本 本 本 本 本 玉林 玉 玉 本 本 キ 玉 本 本 キ 本 玉 杯 玉 玉 玉 玉 米 玉 玉 米 玉 玉 米 米 本 玉 玉 氷 来 玉林 玉 本 玉 玉 


本 玉 玉 本 本 本 キキ 本 本 本 キキ 本 ICO ネー ム キネ キネ 本 本 玉 玉 玉村 炒 末 本 玉 玉 末 末 末 玉 玉 本 本 玉 玉 玉 玉 


_exit equ $ff99 
_SUDeF edu $ff20 
text 





玉 玉 本 末 末 玉 玉村 玉 玉 本 床 氷 末 ヒキ スリ り ・ モ トリ チ キ 本 玉 玉 本 玉林 来 本 計 玉 計 玉 玉 玉 玉林 水玉 玉 玉 玉 玉 
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int_val edu $90992 
int_ret eqU $8091 


本 本 玉 玉 玉 米 炒 米 玉 本 玉林 本 玉 イソ フォ メー ジョ ソン ・ テ ー ブ "ルキ キ 本 玉 玉 玉 米 玉 米 玉 玉 米 玉 玉 玉 米 玉 玉 米 玉 玉 


adr_init dc.1 return 
adr_run dc. | return 
adr_end dc. 1 return 
adr_system 導 | return 
adr_break dc.1 return 
adr_input de。 1 return 
adr_reServel dc. 1 return 
adr_reserve2 dc. 1 return 
adr_token dc. | token_table 
adr_parameter dc. 1 param_adr_table 
adT_eXeC dc.1 exec_table 
TeSeTve dc. 1 9, 9,9, 9,09 


玉林 本 林 末 末 本 本 本 本 本 トー クン ・ テ ー ブ ルキ ネ 村 玉 玉 玉林 玉林 米 玉 林 末 末 玉 玉林 玉 末 玉 玉 本 玉 玉 末 末 玉 玉 玉 


token_table dc.b "tline",9 
dc.b "xline",9 
dc.b "tcls",9 


玉 本 米 玉 玉 玉林 本 本村 本 本 本 作 " フ メー タ ・ テ ー ブ ルネ キキ 本 本 本 玉 本 玉 本 本 玉村 玉 米 玉 本 米 玉 玉水 玉 玉 本 玉 米 玉 





・even 
param_adr_table dc.1 param_table_l 
dc。1 Param_table_2 
dc. | param_table_3 
Param_table_l dc.W int_val,Int_val,int_val 
dc.W int_val,int_val,int_ret 
param_table_2 dc.w int_val,int_val,int_val 
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Param_table_3 


本 素 玉 玉 素 米 玉 玉 米 玉 玉 玉 本 玉 玉 


exec_table 


本 本 本 本 玉 米 米 炒 本 玉 素 玉林 玉 


tline: 





5-5 複合 関数 「XLINE」「TLINE」「TCLS」 


dc.W int_val,int_val,int_ret 


int_val,int_ret 


dc.w 


ジ ~ ッッ コウ アト ~ ルス ・ テ ー ブ "ルネ 本 本 本 玉林 本 玉林 玉 玉 玉 玉 米 本 素 玉 玉 玉 玉 玉 ※ 玉 


・even 
ies 【 tline 
dc. 1 xline 
dc. 1 tcls 


TEXT LINE * ネ ネネ ネネ 本 本 本 本 本 玉 玉 玉 玉 本 玉 玉 米 玉 玉 本 本 本 本 玉 


・eVven 
move.| 12(sp) , X1 
move. 1 22(sp), Y1 
move. | 32(sp) , X2 
move. | 42(sp),Y2 
move. | 52(sp),COL 
clr.1 - (sp ) 

dc.W _SUDeT 

addq. | #4, Sp 

move, 1 d9, sspbuf 
move. | usp,aD 
move.| a9,uspbuf 
bsr line_l 

move. | uspbuf,a9 
move. | a9,usp 

move. | sspbuf,-(sp) 
dc.w _SUPeT 

addq. | #4, sp 
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本 玉 本 米 本 米粒 玉 ネ 本 本 玉林 


line_1: 


ZEROX_1 


PLUSX_1 
CONTI_1 


Gly 1 
lea. 1 


lea.1 


が 吉 


TEX 1 LINE ホソ タイ ネネ * キ 本 玉 玉 玉 玉 玉 本 玉 米 玉 玉 玉 玉 米 米 米 玉 本 米村 本 


・eVen 


move. | 
move.| 
move. 1 
move. | 
move. | 
move.| 
sub. 1 
sub. 1 
Cmp. | 
bgt.1 
beq. 1 
move. | 
muls 
bra 
move.| 
bra 
move. | 
move. 1 
muls 
move. 1 
move. 1 
cmD. 1| 
bgt. 1 
beq.1 


move. | 


d9 
ret_param(pc),a9 


mSg_error(pc),a1 


Xl,d9 | 
X2,d1 

1。 着 妥 

Y2,d3 

d9,d6 

d2,d7 

d9,d1 

d2,d3 

#9,d1 

PLUSX_I 

ZEROX_1 

#-1.SGNX 

#-1,d1 

CONTI_I 

#0, SGNX 

CONTI_I | 
#1, SGNX 
d1,ABSDLTX 
#2,d1 
dl1,ABSDLTX2 
ABSDLTX,d1 
#0,d3 
PLUSY_1 
ZEROY_1 
#-1,SGNY 











"RMmMnvmMPMNInMAMAMRVAMTMTMNMAMAMRMTMNMVmVnVWTMTMRMRMVVnVTMNMWMNMTMRMAMTVTM 


ZEROY_1 


PLUSW 1 
CONT2_1 


BIGX_1 


LO00P1I_1 


CONTBIGX_I 


BIGY_1 


LO0P2_1 


muls 


bra 


WOVE. 


bra 


WOVG. 


WOVE. 


s 
muls 


mOVE・. 


IOVE 


cmp. | 
bgt.1| 


move. | 


muls 


clr. 


move.| 


move. | 


bsr 


add. 
add. 
CmDp・ 
b1t. 
add. 


Sub. 


addq. | 


CmDp・ 
blt. 


bra 


move.| 


muls 


(5 


move.| 


5-5 複合 関数 「XLINE」「TLINE」「TCLS」 ee 


#-1,d3 
CONT2_1 

# り 9,SGNY 
CONT2_1 
#1,SGNY 
d3,ABSDLTY 
#2.d3 
d3,ABSDLTY2 
ABSDLTY,d3 
dL1,d3 
BIGY_I 
ABSDLTX,d4 
#-1,d4 

d5 

d6, SX 
d7,SY 


TEXTPSET 


SGNX, dB 
ABSDLTY2,d4 
#9,d4 
CONTBIGX_1 
SGNY,d7 
ABSDLTX2.d4 
#1,d5 

d1,d5 
LOOP1_1 
CONT_1 


ABSDLTY,d4 
#-1,d4 

d5 

d6,SX 
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move.1 d7,SY 

bsr TEXTPSET 

add. 1 SGNY,d7 

add. 1 ABSDLTX2,d4 

cmp・. | #9,d4 

blt.1 CONTBIGY_I 

add. 1 SGNX,d6 | 

sub. 1 ABSDLTY2,d4 
CONTBIGY_1 addq. 1 #1,d5 

cmp.1 d3,d5 

blt.1 LOOP2_1 
CONT_I1 rts 


本 本 玉林 キネ 本 本 本 キネ 本 本 [EX] PSE| ネネ ネネ 本 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 米 玉 米 玉 玉 玉水 玉 玉 玉 米 米 玉 玉 


TEXTPSET: 
move.| d6,TEMPX 
move. 1 d7,TEMPY 
mulu #$89,d7 
中 ivu #16,.d6 
mulu #2.d6 
add.| d6,d7 
move. 1 d7,adrsl 
mulu #8,d5 
move. 1 TEMPX,d7 
sub. 1 d6,d7 
move.| #$8009,d6 
lsr.1 d7,d6 
move. 1 COL,d7 
cmp. | #9,d7 
beq COLOR09 
cmp. 1 #1,d7 
beq COLOR1 
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mwmvmvmvmmmwawumsvmvmvmemummunumvnvnmunnummumememvnvmmvnanumuun 5ー5 補 合 関数 「XLINE」「TLINE」「TCLS」 


cmp. 1 # き 2.d7 
beq COLOR2 
bra COLOR3 

COLORB9 move, 1 adrs1,d7 
add. 1 #$E99099,d7 
move, 1 d7,a4 
OFT.W d6,(a4) 
move. 1 TEMPY,.d7 
move.| TEMPX.d6 
rts 

COLOR1 move. | adrsl,d7 
add. 1 #$E290009,.d7 
move. | d7,a4 
OFT.W db, (a4) 
move.| TEMPY,d7 
moVve. | TEMPN,d6 
rts 

COLOR2 move. 1 adrsl,d7 
add. 1 #$F49900,d7 
move. | d7,a4 
Or.W d6, (a4) 
move.| TEMPY,d7 
move. | TEMPX,d6 
rts 

COLOR3 move. | adrsl,d7 
add. 1 #$E69090,d7 
move. | d7,a4 
0T.W d6, (a4 ) 
move. 1 TEMPY,d7 
move. 1 TEMPX,d6 
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rts 
ホネ 林 玉 玉 玉水 本 本 玉 玉林 XOR LINE* ネ ネ 炒 玉 玉水 玉 玉 玉 玉 洲本 米 本 米 本 本 米 本 
.even 
xline: 
mOVve.| 12(sp) ,X1 
move.1 22(sp) ,Y1 
move. | 32(sp) ,X2 
move. | 42(sp),Y2 
move. | 52(sp),COL 
clr.| - (sp ) 
dc.W _SuUDeT 
addq.1I #4, Sp 
move. | d9,sspbuf 
move. | usp,a0 
move. | a9,uspbuf 
bsr line_32 
moVve. | uspbuf,a9 
move. | aM,usp 
move. | SsSpbuf,-(sp) 
dc.w _SuUDeF 
addcd. 1 #4, sp 
clr.1 dg 
lea. 1 ret_param(pc),a 
lea. 1 mSg_error(pc),al 
rts 
水 米 玉 玉 米 米 玉林 本 玉 玉 林 キ XOR LINE ホン タイ キキ 水玉 玉 米 玉 米 玉 玉 玉水 米 玉林 玉 玉 玉 玉 米 玉 
line_2: 
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(NNNmMAEAeReTYRMRMRMAMNMTMTMRMTMTMTMMPMAMWMAMRMMRMAMIM 和 AIMAITMRMAMAMI レ In 


ZEROX_ 


PLUSX_ 
CONT1_ 


ZEROY_ 


PLUSY_ 
CONT2_ 


2 
どら 


D】 


1 に こ 】 


2 
ご 


2 
ど 


【S 


move. 1 
move. | 
move. | 
move. | 
move. | 


move. | 


sub. 1 
sub. 1 
cmp. | 
bgt.1| 
beq. 1 
move. 1 
muls 
bra 
move. | 
bra 
move. | 
move.| 
muls 
move. | 
move. | 
Cmp. 1 
bgt. 1 
beq. 1 
move. | 
muls 
bra 
move.1 
bra 
move. | 
move, 1 
muls 
move. | 


move.| 


5-5 複合 関数 「XLINE」「TLINE」「TCLS」 


の) 
X2.d1 
Y1.d2 
Y2.d3 
d@,d6 
d2.d7 


d9,d1 
d2,.d3 
#0,.d1 
PLUSX_2 
ZEROX_2 
#-1.SGNX 
#-1,d1 
CONT1_2 
#0,SGNX 
CONTI_2 
#1.SGNX 
d1,ABSDLTX 
#2.d1 
d1,ABSDLTX2 
ABSDLTX,d1 
#9,d3 
PLUSY_2 
ZEROY_2 
#-1.SGNY 
#-1,d3 
CONT2_2 
#9,SGNY 
CONT2_2 
#1,SGNY 
d3,ABSDLTY 
#2.d3 
d3,ABSDLTY2 
ABSDLTY,d3 
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cmp. | d1,d3 
bg も 。 1 BIGY_2 
BIGX_2 move. 1 ABSDLTX,d』 
muls #-1.d4 
ei d5 
LOOP1_2 move. | d6,SX 
move.| d7,SY 
bsr XORPSET 
add. | SGNX, d6 
add. 1 ABSDLTY2,.d4 
Cmp. 1 #9,d4 
blt.1 CONTBIGX_2 
add.| SGNY.d7 
sub. | ABSDLTX2,.d4 
CONTBIGX_2 addq. 1 #1.d5 
cmp. | d1,d5 
blt.1 1L00P1_2 
brra CONT_2 
BIGY_2 move.| ABSDLTY,d4 
muls #-1.d4 
應 4 』 1 d5 
LO0P2_2 move. | d6, SX 
move. 1 dySY 
bsr XORPSET 
add. 1 SGNY.d7 
add. 1 ABSDLTX2,d4 
Cmp. | #0,d4 
blt.1 CONTBIGY_2 
add. | SGNX, d6 
sub. 1 ABSDLTY2,d4 
CONTBIGY_2 addq. 1 #1,.d5 
CD. 1 d3,d5 
blt.1 LO00P2_2 











mvmvnvmvmorunnnummvmymvmumeausummesmvuaunwuwnammvavwvmvnvmswn 。 5 一 5 補 合 関数 「XLINE」「TLINE」「TCLS」 


CONT_2 rts 


素 玉 玉 玉 玉 玉 玉 床 ドキ 床 X(UUR PSET * ネ ネネ 聞 米 玉 素 米 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 来 素 米 玉 米 玉 玉 米 玉 東 


- even 

XORPSET: 
move.| d6,TEMPX 
move. | d7,TEMPY 
mulu #1924.d7 
add. | d6,d7 
add. 1 d6,.d7 
add. | #$c99999,d7 
move. | d7,a4 
move. 1 COL,d7 
eor.1 d7, (a4) 
move. | TEMPY,d7 
move, | TEMPX,d6 
rts 


ボ 玉 玉 玉 村 米 玉 玉村 玉 玉 玉 玉 玉 玉 素 玉 玉 玉 米 米 玉 玉 玉水 玉 素 素 玉 玉 玉 玉 米 米 玉 玉 玉 半 米 玉 玉 玉 米 玉 玉 玉 米 玉 米 玉 玉 玉 玉 玉 


・eVen 

tcls: 
move. 1 12(sp),COL 
clr.1 -(sp ) 
dc.W _SUDPeT 
addq.1I #4,. Sp 
move.1 d9,sspbuf 
OoVe. 1 usp,a0 
move.| a9.uspbuf 
move.| COL,d9 
cmp. | #9,d0 
blt clsall 
cmp. 1 #9,d9 
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beq cls9 

cm. 1 #1,d0 

beq cls1 

CmD. | #2.d09 

beq cls2 

Cmp. | #3,dU 

beq cls3 

move, 1 uspbuf,aM 

move,. 1 a9,usp 

move. | sspbuf,-(sp ) 
dc.w _SUDeF 

addq. | #4,. sp 

move.| #-1.d9 

lea. | Fet_param(pc),aM 
jea. 1 mSg_error(pc),al 
rts 


素 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 素 玉 玉 米 玉 玉 米 玉 玉 玉 玉 玉 素 玉 玉 玉 本 玉 玉 玉 玉 玉 未 玉 玉 李 玉 玉 玉 末 玉 来 玉 玉 玉 末 玉 玉 本 


clsall move. | #$e90099,a9 
move. 1 #$e299090, a 1 
move. | #$e49999,a2 
move.| #$e69999,a3 
move. | #9,.d9 

transall mOVve.W d9, (a9) 
move.W d9, (a1) 
moVve.w d9, (a2) 
OVe.W d9, (a3) 
addq, 1 #2,.a0 
addq. 1 #2.a1 
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cls9 


trans9 


cls1 


trans1 


cls2 


trans2 





addq. 1 
addq. 1 
Cmp. 1 


bne 


move.! 
move. 1 
mmOVe.W 
addq. | 


cmp. 1 


bra 


5-5 複合 関数 「XLINE」「TLINE」「TCLS」 


#2.a2 
#2,a3 
#$e29999.a0 


transall 


return_c 


#$ed9099,a9 
#9, dd 

d9@, (a) 
#2,a9 
#$e29999,a9 


trans り 


return_c 


#$e20999,a0 
#0,d9 

d9, (a9) 
#2.a0 
#$e49999,a9 


transl 


return_c 


#$e49999,a り 
#9,d9 

d9, (a9) 
#2.a9 
#$e69009,a9 


trans2 


return_c 
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elhg3 move.1 #$e69099.a0 
move. 1 #9,dM 
trans3 move.W d9.(a9) 
addq. 1 #2.a0 
Cmp. | #$e89999,a9 
bne trans3 
Feturn_c move. | uspbuf.a 
move. | a9,usp 
move. | SSpDbuf.-(sp) 
dc.W _SUDeT 
addq. 1 #4.Sp 
Es I d り 
lea. | ret_paramm(pc).a9 
lea. 1 mSg_error(pc),al 
return rts 


本 本 本 玉 玉 林 玉 玉 玉 玉林 本 末 リタ ー ン 八 " フ メー タ ネネ 本 本 玉森 来 * 玉 玉 玉 玉 末 玉 玉 玉 末 末 玉 玉 玉 玉 玉 


・even 
ret_param dc.W 9 

dc. 1 9 

dc.I 1 
mSg_eTTOF dc.b "外部 関数 エラ ー で す ",9 
sspbuf dc. 1 9 
uspbuf dc. 1 9 
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emmvmymawwmvmvmvmvmennmmvwvuaaanvnvnvvwnwvnvmvmwmmsuwn 5ー5 視 合 関数 「XLINE」「TLINE」「TCLS」 w 


本 本 本 本 キキ 本 キ 本 本 本 リー ク エリ ア キネ ネネ 本 閑 玉水 本 林 玉 本 本 玉 本 玉林 本 本 本 本 末 本 氷 玉 玉 玉 玉 本 本 玉 ギ 
adrsl dc.1 9 
adrs2 dc.1 9 
TEMPX dc. 1 9 
TEMPY dc. 1 9 
X1 dc. 1 9 
Y1 dc. 1 9 
X2 dc. 1 9 
Y2 dc. 1 9 
SX dc. 1 9 
SY dc. 1 9 
CO0L dc. 1 9 
SGNX dc. 1 9 
SGNY dc.1 9 
ABSDLTX dc. 1 9 
ABSDLTY dc. 1 9 
ABSDLTX2 de 9 
ABSDLTY2 ie 9 
本 玉 玉 玉 玉 米 玉村 * 素 玉 玉 末 玉 米 玉 玉 米 玉 玉 米 半 米 玉 米 玉 素 玉 玉 米 素 米 米 玉 米 米 玉 米 玉 玉 末 玉 玉 玉 玉 素 玉 素 素 素 玉 玉 玉 玉 末 
end 








この 関数 で は , IOCS ュ ユー ル を 使用 し て いま せん 。 こ こ で は , 基本 概念 と し て 整 散 で の 処理 に よ 
る ライ ン 処 理 の 考え 方 で ある DDA 法 を 使っ て いま す 。DDA 法 言う の は , 基本 的 に 整数 で 直線 の 
方 程 式 を 近似 的 に 解く も の で , グラ フィ ッ ク 関 係 の 書籍 で は よく 扱わ れ て いる 技法 で す 。 と も が か 
く , マシ ン 語 で 実数 計算 やす る の が 非常 に 難し いた め , こう し た 整数 で 処理 を 行う も の に つい て 
の 知識 を 持っ て いる と 便利 で す 。 
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語 - 選 %XOH タイ ブ の CIRCLE 


「XCIR 








仕様 書 8 





リス ト 6 
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玉 玉 玉 玉林 玉 玉 玉 玉 キキ 本 キキ 本 本 本 本村 本 本 玉 本 杯 玉 玉 玉 玉 本 玉 玉 玉 玉 玉 水 水 玉 玉 玉 米 玉 玉 杯 玉 
は キキ 
* BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
玉 3 
ボ 月 刊 マ イコ ン 別冊 * 
素 3 
* 昭和 6 32 年 7 月 16 日 制作 ネ 
玉 素 
ネ PROGRAMNED & Typed by 宮原 哲也 * 
素 
* (て XOR CIRCLE 〉 > (Ver1.0) * 
3 は 
米 玉 米 米 玉 玉 玉 素 玉 米 玉 玉 素 氷 水玉 本 来 米 本 玉 米 玉 玉 玉村 玉 玉 本 杯 玉 玉 玉 玉 本 本 玉林 末 本 本 本 本 玉林 本 本 本 本 本 本 ま 玉 本 本 


_exit equ $ff99 
・text 
米 玉 玉 末 玉 玉 玉 本 玉 李 玉 素 末 玉 素 半 玉村 素 玉 玉 球 李 末 素 素 玉 素 素 玉 玉 玉 玉 玉 米 李 李 本 来 玉 ギ 


int_val equ $9992 
int_ret edu $8991 





memmweuwneuouauwauwnuwn 5ー6 XXOR タ イプ の CIRCLE「XCIRCLE」 





ネネ 玉 玉 キキ 本 キ キネ キキ 本 玉 玉 玉 玉 玉 玉 本 本 本 本 本 本 森本 本 本 本 末 本 本 キ 玉 本 本 本 本 キネ 


adr_init dc. 1 return 
adr_Fun dc. 1 return 
adr_end dc. 1 return 
adr_system dc.1 return 
adr_break dc. 1 return 
adr_input dc.1 return 
adr_reservel dc. 1 return 
adr_reserve2 dc.1 return 
adr_token dc. 1 token_table 
Sdr_pDarameter dc. 1 Param_adr_table 
adr_eXeC dc. 1 exec_table 
TeSeFVe dc. 1 9.9,.9,.9,.9 


本 本 米 玉 玉 米 玉 村 玉 六 玉 玉 玉 米 玉村 米 米 玉 玉 玉 玉 氷 玉 玉 本 玉林 玉 玉 米 涼 玉 本 本 本 本 本 本 本 本 本 玉 


tuken_table dc.b "xcircle".9.9.9 


本 玉 玉 米 米 玉 玉 玉 来 玉 素 来 玉 末 玉 米 素 末 米 玉 玉 米 米 玉 玉 末 来 玉 玉 米 来 末 玉 来 来 米 玉 玉 本 玉 来 玉 玉 玉 玉 来 


- even 
Para 本 adr_table dc.1 param_table 
Daram_table dc.W int_val,.int_val,int_val 
dc.Ww int_val,int_val.int_ret 


玉 玉 米 玉 玉 玉 米 玉 来 玉 玉 玉 玉 素 玉 玉 玉 玉 玉 玉 玉 来 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 素 来 来 来 玉 玉 
・eVen ] 


exec_table dc. 1 xcircle 


米 米 玉 本 玉 玉 玉村 米 本 玉林 森林 本 本 杯 水 本 本 本 本 本 本 本 本 玉 本 本 本 玉 本 玉林 玉 玉 玉林 本 本 本 本 末 玉 末 





・EVen 
Xcircle: 

move, | 12(sp),X9 
move.| 22(sp),Y9 
move. | 32(sp),RR 
move. 1 42(sp),COL 
move.| 52(sp),HSV 
條 肖 。 -(sp) 

dc.W _Super 
addq.1 #4.Sp 
move. | d9.sspbuf 
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move. | usp,a9 
move. | ag.uspbuf 
bsr CIRCLE 
move.| uspbuf,a9 
move.1| a9.usp 
move.| SSpbuf,-(sp) 
dc.W _SuPeFr 
addq. 1 #4, Sp 
clr.1 d9 
lea. 1 ret_param(pc),a9 
lea. | mmSg_error(pc),a1 
return rts 
・even 
ret_param dc.W 9 
dc.1 9 
dc. | 1 
MSg_eFFOT dc.b "外部 関数 エラ ー で す ".@ 
sspbuf dc. 1 9 
uSpbuf dc.1 9 


米 玉 玉 玉 玉 玉 来 玉 来 玉 玉 来 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 本 玉 玉 玉村 半 玉 玉 本 玉 玉 村 玉 玉 本 本 玉村 本 玉 末 玉 玉 玉 


even 
CIRCLE: 
move.1 RR,d2 H 
muls #54,d2 H 
move.1 d2,X% :X=R*B4 
| d2 H 
move.| d2,Y iY=9 
loop move.| Y,d2 5 
move. | RR,d3 
divs d3,d2 jiV/R 
andi.1 #$ffff,d2 
mOVve. | X,d3 
sub. 1 d2.d3 :X-Y/R 
move.I d3,XN jiXN=X-Y/R 
move.| RR,d2 H 
divs d2.d3 jiXN/R 
andi.| #$ffff,d3 
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764 


/64)/64 


move. | 
add.1 
move.1 


move.| 
move.| 


move.| 
move.| 
muls 
divs 
andi.1 
move,.1 
muls 
add. | 


divs 


andi.| 


前 OVe.W 


move.| 
move | 
muls 
sub. 1 
divs 
andi.1 
addq. | 
mOVve.W 
move.| 
muls 
moVe.W 
sub. | 
moVe・W 
move. | 
muls 
moVe.W 
sub. 1 
moVe.W 
bsr 
mOVe.W 
move.| 


sub.w 


CmD・ 還 
bgt 


rts 


Y,d2 
d2.d3 
d3, YN 


XN,X 
YN.Y 


XN.d9 
HSV.d1 
d1,d9 
#64,d9 
#$ffff,d9 
X9,d1 
#64.d1 
d1,d9 
#64,d9 


#$ffff,d9 
d9,.SX9 


Y9,d1 
YN,d2 
#64.d1 
d2,d1 
#64.d1 
#$ffff.d1 
#1.d1 
d1,SY9 
X9.d9 
#2.d9 
SX9,.d1 
d1,d9 
d9.SX1 
Y9.d9 
#2.d0 
SY9.d1 
dl1.d9 
d9,SY1I 
XORPSETI 
SX9,.d9 
X9.d1 
d1,d9 


#9.d9 


1oop 


XOR タ イプ の CIRCLE「XCIRCLE」 


jiXN/R+Y 
:YN=XN/R+Y 
:X=XN 
jY=YN 


:XN*HSV 
j (XN*HSV) /64 


:X9*64 
:X9*64+(XN*HSV)/64 
: (X9*64+(XN*HSV ) / 64) 


:SX9=(X9*64+(XN*HSV) 


:Y9*64 
:Y9*64-YN 
:(Y9*64-YN) /64 


:(Y9*64-YN) /64+1 
:SY9=(Y9*64-YN) /64+1 
1 2*X9 

i2*X9-SX9 
:SX1=X9*2-SX9 


:2*Y9 


jiSY1=Y9*2-SY9 
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玉 玉 玉 素 玉 玉 半 ギ 球 玉 玉 半 玉 玉村 半球 玉 玉 玉 計 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉村 玉 半 米 玉 玉 玉 李 玉 玉 米 玉 玉 玉 玉 玉 玉村 
-even 
XORPSET1: 

mOVe.W SX9,d6 
mOVe.W SY9.d7 

mulu #1924.d7 
add. | d6.d7 

add. 1 d6.d7 

add, | #$c990999.d7 
move.1 d7,a4 | 
move.| COL,d7 

Or.W d7.(a4) 
mmOVe.W SX1.d6 
moVve.W SY9.d7 

mulu #1924.d7 
add. 1 d6.d7 

add. 1 d6,d7 

add. | #$c09999.d7 
move, 1 d7.a4 
move.| COL,d7 

or.W d7,.(a4) 
moOve.W SX9,.d6 
mOVe.W SY1.d7 

mulu #1924,.d7 
add. | d6.d7 

add, | d6,d7 

add. 1 #$c99999,.d7 
move.| d7.a4 
move.| COL,d7 

OFT.W d7.(a4) 
mOVe.W SX1,d6 
mOVe.W SY1.d7 

mulu #1924.d7 
add. 1 d6,d7 

add. 1 d6.d7 

add. 1 #$c09999,d7 
move.| d7,.a4 

move. | COL.d7 

Or.W d7, (a4) 

Trts 





mvmvnvnunvnvnununvnvrunvnvnunvnvnunvnvmunvnvnvnvnvnvnvnvnvnvnvnusvnvnvnunvnvnvnunvnwun 5ー6 XXOR タ イブ の CIRCLE「XCIRCLE」 の 





い dc. 1 9 
間 dc. | 9 
Xg dc. | 9 
Y9 宙 ps 9 
RR dc.1 9 
SX9 み 企 e。 】 9 
SYM dc. 1 9 
SX1 dc. | 9 
SY1 dc.1 9 
COL dc. 1 9 
XN dc. 1 9 
YN dc.1 9 
HSV dc.1 9 
素 
・end 











この 関数 を 使用 し た X-BASIC の サン プル プ ブログ ラム は , 第 5 一 5 図 の 通り で す 。 





5 - ーー ーー ュ ーー ー 


19 jnt XX,y,。C で Ti 
2 for i=9@ to 999 


30 x=rand()/128 
49 y=rand()/128 
59 r=rand() /327 
69 c=rand()*2 


70 if r=9 or x-r<9 or y-r< or x+r>511 or y+r>511 then continue 
89 xcircle(x,y,r,c,48) 

9 next 

199 end 











第 5 一 5 図 XCIRCLE の サン プル プロ グラ ム 


この ブロ グラ ム は , 終了 し た 後に も う - - 回 実行 する と xor の 面 貼 さき が わかり ます 。 乱 数 系 を 初期 
化し て いな い の で , も う - 度 実行 し た 時 も 同じ 乱数 が 発生 する の で , 皿 実に -- 回 目 の サ ナー クル を 
トレ ー ス し て いき ます 。 ただし, この プロ グラ ム で は , xline の 時 と 同じ く 二 回 目 を 実行 する 時 に 
グラ フィ ッ ク 画 面 を 消去 し な いよ うに screen 命 令 を 使用 し て いま せん 。- ~ 回 目 の 実 行 の 前 に , ダイ 
レク トモ ー ド で 














Seeen 1。 3。 1。 1 回 
と し て か ら 実 行 し て 下さ きい 。 実行 結果 は , xline の も の と 同じ に な る と 思い ます 。 
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ー プ 検索 機能 付 FILEB 較 数 | 
ヴー ノ FFILE 









仕様 書 9 








リス ト 7 5 ーー ーー _ 

本 本 米 米 玉 玉 玉 東 水 涼 玉 素 玉 来 玉 米 玉 本 玉水 玉水 杯 玉 玉 玉 本 玉 玉 玉 玉 玉 米 玉村 玉 玉 玉 玉 玉 玉 末 玉 本 玉林 本 本 本 玉 
素 ネネ 
ネ BASIC EXTERNAL FUNCTION PROGRAM LIBRARY 
ボ * 
* 月 刊 マ イコ ン 別冊 * 
キネ ネ 
* 昭和 6 2 年 8 月 18 日 制作 * 
玉 キネ 
* PROGRAMED & Typed by 宮原 折 也 * 
素 玉 
ネ く 《 EE せ 財 己 S ツ 2 (Ver1.0) 
玉 玉 
キキ 本 本 本 玉村 玉水 米 玉 玉 玉 玉 本 米村 本 本 本 本 杯 本 キネ 本 本 本 本 本 杯 本 玉 玉 本 玉林 氷 林 玉林 本 本 本 米 米 末 玉 玉 玉 玉林 玉 玉 玉 玉 
_-files edu $ff4e 
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_nfiles 


本 玉 李 末 米 米 玉 玉 玉 玉 玉 本 床 末 末 末 Parameter 


int_val 


str_val 


Str_dim 


int_ret 


a_init 
a_Tun 
a_end 
a_SyS 
a_br ト 





a_1InD 
a_rSrvl 
a_FSrV2 
a_token 
a_PaTm 
a_eXeC 


FeSeTVGe 





token_tbl 


edu 


edu 


edu 


equ 


edu 


米 来 氷 来 来 来 求 氷 氷 玉 氷 末 床 床 Information 


・eGVen 


dc. 
dc. 
dc. 
dc. 
dc. 
dc. 
dc. 
dc. 
dc. 
中 Gi。 
dc. 
dc . 


本 玉 玉 玉 玉 玉 玉 玉 本 末 玉 玉 玉 玉 玉 玉 IOken 


・eVehn 


可 臣 。 


$ff4f 


$9002 


$9908 


$9038 


$8M91 


return 
return 
return 
return 
return 
return 
return 
return 
token_tbIl 
parm_a_tbl 
exec_tbl 
9.9.9,9.9 


5-7 検索 機能 付 FILES 関 数 「FFILES」 


ID ネネ 本 ネ 玉 米 米 玉 米 米 玉 玉林 玉 玉 玉 玉 玉 玉 玉林 本 玉 米 


: 文 字 列 の 引数 用 


: 文 字 配列 の 引数 用 


: 整 数 の 戻り 値 用 


Table 本 米 玉 本 玉 末 末 玉 玉 玉 米 玉 米 玉水 玉 玉 本 玉 玉 


Tab | 6 キキ 玉 本 玉 玉 球 * 米 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 玉 


“eS 9 


9 


本 玉 玉 玉 玉 末 本 末 来 末 玉 玉 玉 玉林 本 末 PAFrAmBEtCF 18b|e * ネ ネネ 玉林 玉 玉 末 未 末 本 玉 末 玉 来 来 来 末 末 末 玉 玉 


TI 
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.eVen 
Parm_a_tbl dc. 1 parm_tbl 
parm_tbl dc.W int_val,str_val,str_dim.int_ret 


玉 玉 玉 玉 玉 米 玉 玉 玉林 玉 玉 玉林 FxecC Adr. Table ネネ 玉 本 玉 玉 本 本 末 素 玉 米 玉 玉 玉 米 玉 玉 本 玉 米 本来 


・eVen 


exec_tbl dc. 1 ffiles 


玉 玉 本 本 玉 玉 本 玉 玉 玉 玉 玉林 FUNC1iON MaiN キネ * ネ キネ 玉 玉 本 玉 北米 来 玉 玉 来 来 本 本 キ 玉 玉 玉 


・even 
ffiles: 
move. | 12(sp).d1 
movea.| 22(sp).a2 
movea.| 32(sp),a1 
lea. | 19(a1).a1 
飼 ま Pd -(sp) 
dc.w _SUPEeF 
addq. | #4,sp 
move. | dg,sspbuf 
move.| usp,a9 
move. | a9,uspbuf 
lea. 1 委 取 PA3 
next_byte mOVe.b  (a2)+.(a3)+ 


move.b  (a2).d9 
CD.b # り 9.d9 
bne next_byte 


move.b  (a2).(a3) 
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clr.1 d2 
move.W di1,-(sp) 
pea atr 
Pea filebuf 
dc.W _files 
lea 19(sp) . sp 
Cmp.1 # り 9,d9 
bmi Comebac ト 
addq. | #1.d2 
movea.| al.a3 
next_read lea ae, は フ 
movea. | a3.a1 
next_fname move.b  (a2)+,(a1)+ 
move.b  (a2).d1 
cmD.b #9,d1 
bne next_fname 
move.b  (a2),(a1) 
Pe34 filebuf 
dc.W _-nfiles 
addq.| #4,.sp 
cp. | #9,d9 
bmi comeback 
addq. | #1,.d2 
adda. | #33.a3 
bra next_read 





コ 


検索 機能 付 FILES 関 数 「FFILES」 
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comeback 


continue 


return 


SSpbuf 


uspbuf 


ahSWeT 


MSgerFOT 


atr 


filebuf 


mOVe. 


四 OVe. 
mOVe. 
mOV ら . 
dc.W 
addq. 


感 四 生 。』 
lea 


lea 


rts 


・eGVe1 
dc. | 
紳 @。 


dcC.W 
dc. 1 
ds. 1 


松 。 


ds.b 


・ eVen 
dc.b 
dc.b 
dc.W 
dc.W 
dc.W 
dcC.W 


ds.b 


d2.anSwer+B 


uspbuf.a9 
a9.usp 
sspbuf,-(sp) 
_SUDeT 

#4.Sp 


dg 
anSwer(pc).a9 


mSgerror,al 


QO ご ご る き きき 





mnunvnvnvnvnvmvnvnvnvmvnvnvnvmvmvmvmvmvmvmunumwmvmunununununvnurunvnvnvnvnvnvnvnvmunvn うー7 検索 機能 付 FILES 関 数 「FFILES」 ee 


ds.b 
dc.b 


に っ 敵国 の 2 


dc.W 
dc.W 
dc. | 


name ds.b 23 


きき ぺき 


end 








この プロ グラ ム で は , IOCS コ ユー ル を 使用 し て いま せん 。 フ ァ ン クシ ョ ンコ ー ル に より 基本 的 な 
ファ イル 操作 を し て いま す の で , Human68k マ ニュ アル 巻 本 の ファ ンク ショ ンコ ー ル ーー 覧 を 参照 
し て 下 き い 。ffiles 関 数 を 使用 し た X-BASIC の サン プル プロ グラ ム は , 第 5 一 6 図 の 通り で す 。 





19 str _s 

29 int x=59.n.i,m 

39 input"input file name:”.s 
49 dim str f(59) 

59 nffiles(x,s,f) 

69 for i=9 to nm 

79 print f(i) 

89 next 

99 end 








第 5 一 5 図 FFILES の サン プル プロ グラ ム 


この プロ グラ ム を 実行 する と , 画面 に 検索 し た い フ ァイル ネー ム を 聞い て きま すか ら , 検索 し 
た い フ ァイル ネー ム を 入力 し て 下さ い 。 大 り 値 の n が 0 の 場合 は 、 その ファ イル は を の ディ レク ト 
リ 内 に は な い 。 ま だ は , その フロ ッ ピ ー 内 に な いこ と に な り ま す 。 指定 する ファ イル ネー ム は , 
ワイ ルド カー ド が 使用 出来 ある ため, *※. ※ ま と すれ ば ファ イル すべ て が , *. fnc と すれ ば *※※ ネ ※. 
fnc と 放 う ファ イル すべ て が 配列 に モッ ト さ れ て 戻り ます 。 プ ログ ラム を 作り , デー タ 管 理 あ する 
と き に どん な ファ イル が 人 存在 する か を X-BASIC の プロ グラ ム 中 に 関数 と し て 持つ こと は 非常 に プ 
ログ ラム を 簡略 化 き せ て くれ ます 。 
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品 - 日 FPOP UP 









仕様 書 10 





この 関数 で 使用 し た IOCS コ ー ル は 次 の 通り で す 。 ま た 枠 を テキ スト 画面 に 表示 きせ る た め , 
tline ( ) の 関数 の - 部 を 刊 用 し て いま す 。 
IOCS コ ュー ル 番 号 810…… 画面 の 長 が モー ド を 設定 現在 の 到 ボ モ ー ド の 読み 収 り を する 

S15…… テキ スト VRAM の 指定 を し ます 
$la…… テ キス ト 画 面 か ら 指 定 範 胃 の パタ ー ン デー タ を 読み 込み ます 
$1b…… テ キス ト 画 面 か ら 指定 範 胃 の パタ ー ン デー タ を 午 き 込み ます 
S21…… テキ スト 画面 に 指定 し た 朗 字 列 を 書き 込み ます 
$22… の … テキ スト 画面 の 表示 怖 性 を モッ ト し ます 
$23…… カ ー ソ ル を 指定 位置 に 移動 きせ ます 


871…… マウ スカ ー ソ ル の 到 示 も させ る 

S74…… マ ウス の 移動 量 ・ ボ タン の ON OFF の 状態 を 読み 収 る 
W75…… マウ スカ ー ン ソル の 位置 を 調べ る 

$76…… マウ スカ ー ソ ル の 位置 を 指定 する 
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5-8 ポッ プア テッ プ メ ニュ ー 関 数 「POP_UP」 ee 


リス ト 8 





六 素 玉 玉 玉 米 玉 本 本 本 杯 本村 本 本 本 玉 本 本 キ 本 本 本 本 キキ 玉林 本 キキ 玉 本 玉村 半 玉 本 玉 玉 玉 玉 米 本 玉村 キ 本 本 本 本 本 


キキ 3 
日 BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
キ ネ 
* 月 刊 マ イコ ン 別冊 ネ 
素 し 3 
* 昭和 6 2 年 8 月 11 日 制作 * 
3 キキ 
円 PROGRAMED & Typed by 宮原 哲也 * 
素 3 
* 〈〈 POP UP MENU 〉 〉 (Ver1.0) * 
ま 3 
米 玉 本 玉林 玉 玉 本 数 玉 ま 玉水 水玉 玉 ホ ボボ 事 本 玉 玉 本 玉 水 末 床 ホ ボ ボ ホ 本 本 本 本 本 本 本 本 水 末 玉 玉 本 水玉 水玉 本 本 


本 玉 杯 玉 玉 玉 半 玉 本 本 玉 本 玉林 PaFamCtGr |) キネ キネ キネ キ キキ キネ 玉 玉 玉村 本 玉 玉 本 玉 氷 本 本 本 玉 玉 玉 本 本 


int_val equ $9992 : 整 数 の 引数 用 
str_dim edu $0038 : 文 字 配 列 の 引数 用 
int_ret equ $80991 : 整 数 の 戻り 値 用 


本 本 玉 玉 本 本 本 玉 本 来 本 玉林 InTOrmatiOn Tab|e ネネ キキ 本 本 本 本 本 末 林 本 本 本 本 玉 本 村 玉 玉 玉 玉林 玉 玉 玉林 本 玉 玉 本 


- even 
a_init dc. 1 return 
a_rUun dc. 1 return 
a_end dc. | return 
a_SyS dc. 1 return 
a_brk dc.1 return 
8a_inPp dc. 1 return 
a_rSrvl dc. 1 return 
a_rSrVv2 し いり return 
a_token dc. 1 token_tbl 
Aa_DaT 箇 dc. 1 parm_a_tbl 
a_exeC dc.1 exec_tbl 
reServe dc. 1 9, 9, 9, 9,9 


そよ すす すす すす すす すす 1111130 い 1 時 まま ます すす すま すす すす すす すす すす すす すす すす すす すす まま も ええ ええ すす も さよ さも は 


・eGVen 








token_tbl dc.b "pop_up”, 9,9,9 
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玉 玉 玉 本 玉 氷 本 玉 束 本 本 キ ParammCter Table キネ ネネ 本 本 キ 本 補 本 本 キキ 炒 玉 本 玉林 玉林 玉 玉 玉 玉 玉 玉 玉 玉 本 ※ ネ ボ 


・eVen 

Parm_a_tbl dc. 1 parm_tbl 

Parm_tbl dc.W str_dim,int_val,int_val,int_val 
dc.W int_ret 


玉 玉 玉 玉林 本 本 本 本 本 本 本 本 Ex6C AdF. 1ab| 6 ネネ 本 玉 本 本 本 本 玉 玉 玉 玉 玉 本 本 本 本 本 玉森 玉 玉 玉 玉 玉 玉 玉 玉 本 


・SBVen 


exec_tbl dc. 1 POP_UP 


本 本 来 素 玉 素 玉 李 素 素 半 玉 率 玉 玉 FUNCLION Main 本 本 本 玉 玉 玉 玉 玉 本 玉 玉 来 玉 玉 本 玉 玉 玉 玉 玉 本 本 玉 玉 玉 玉 末 本 本 玉水 玉 本 氷 本 


POP_uP: 
move.| #9,max_len : ワ ー ク エリ ア の 初期 化 
movea.| 12(sp),a9 : 引 数 1 
lea.| 19(a9),a9 i 引 数 1 文字 列 の 
move.| a9,str_pointer j) ポ イン ター アド レス 
move.| str_pointer,pointer 
move.| 22(sp),d9 : 引 数 2 文字 列 の 数 
move.| dg,number 
move.| 32(sp),d1 j 引 数 3 XX 座標 
move.| dl,ms_x 
move.| 42(sp),d1 j 引 数 4 Y 護 標 
MOVe. | dl,mS_y 
move.| #33,.d1 j 文 字 列 の オフ セッ ト 
cmp.| 1.d9 ij 引数 3 が 0 か 1 の 時 
ble abort j の 処理 
count_len move.| #-1,d2 文字 列 の 最大 文字 数 
count_char addq.| #1.d2 j の 計算 
tst.b (a9)+ 
bne count_char 
MOVe. | max_len,d3 
Cp. 1 d3,.d2 
blt no_opel 
move. | d2,max_len 
no_opel subq. | #1,d9 
beq check_adr 
move.| pointer,a9 
add. 1 d1,a9 


move.| a9,pointer 


bra count_len 
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check_adr mmOVe.W 。 き -1,d1 : 表 示 モ ー ド を 
mmoveq #$19,d9 j 調 べ る 
trap #15 
cmp. 1 #16,d9 
beq dot768 
lsr.1 #2,d9 
bcs dot256 
dot512 move.| まき 511,max_x j 表 示 モ ー ド に より 
move. | #511,max_y : 表 示 範 囲 を 変更 する 
bra dot_check 
dot256 名 OVe. |  #255,max_x 
move.| #255,max_y 
bra dot_check 
dot768 mmOVe. | #767,max_X 
mOve.| #511.max_y 
dot_check move. | ms_x,d1 : 表 示 可 能 範 囲 か どう か 
move.| ms_y,d2 : 調 べ る 
mOVe.| num ョ ber.d3 
move. | max_len,d4 


divu #8.d1 
divu #16.d2 


ext.1 d1 
ext.1 d2 
mulu #8,d1 
WUlu #16,d2 


mmulu #16,d3 
mulu #8.d4 


cmp.| 9,d1 : 表 示 範 囲 外 な ら 

beq ofset_adr_xs j オ フ セ ッ ト を か ける 

C 本 DP. 1 #0,d2 

beq ofset_adr_ys 

subq.1 #2,d1 j: メ ニュ ー ボ ックス 用 の 
move.| dl,xs j4 点 の 座標 を 計算 する 


subq. | #1,.d2 


move.| d2,ys 


add. 1 d3,d2 
addq.| # き 1.d2 
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胃 OVe.| d2,ye 
add.1 d1.d4 
add. 1 #3.d4 
草 OVe. | d4,xe 
mmove.|  xe.d1l 


cmp.1 maXx_x,d1 


bgt ofset_adr_xe 


moOve. | ye,dl 


Cp. 1 画 aX_y,d1 


bgt ofset_adr_ye 

menu_box move.| ms_y,d2 jX 座 標 、Y 座 標 に 
divu #16,d2 ij メニ ュー 用 の 枠 を 
ext.|  d2 j を 作る 
mmOVe.| ms_x,d1 
divu #8,d1 
ext.1 d1 
move. | dl,x_poSs 
moVve.| d2,y_poS 
moveq 。 #2,.d1 : ボ ックス を 書く 前 に 
moveq 。 #$15,.d9 j: ボ ックス の 大 き さ だ け 
trap #15 : テ キス ト を 保護 する 
move.|  xe,d9 : テ キス トペ ー ジ 2 の 保護 
sub.1 xs,d9 


addq.| #3.d9 

moOve.W  d9,vramm_buf2 
moVve.W  d9,mxe2 
move.| xs,d9 


move.W  d9,mxs2 


本 OVe. | ye,d9 

sub. 1 ys,d9 

addq. | #3,d09 

前 OVe.W dd,vram_buf2+2 
mOVe.W  dO.mye2 

move. | ys,d9 


moOve.W  d9 り ,wys2 


WOVe.W  WXS2,.d1 
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mOVe.W 
1ea. 1 
moveq 


trap 


胃 OVed 
骨 OVeqd 


trap 


move. | 
sub. 1 

addq. 1 
mOVe.W 
mOVe.W 


move.| 


四 OVG.WW 


move. | 
sub. 1 

addq. 1 
mOVe.W 
moVe.W 
move.| 


間 OVB. 四 


胃 OVe.W 
胃 OVe.W 
1ea. 1 
moveq 


trap 


bsr 


move. 1 


bsr 


moveq 


trap 


move.| 
lsl.1 
lsl.1 


andi. 1 





WyS2,.d2 
Vram_buf2.a1 
#$1a,d9 

#15 


#$1.d1 
#$15,d9 
#15 


xe,d9 

xsS,d9 

#3,d9 
d9,vram_bufl 
d9,Wxel 
xs,d9 


d9, mWxSs1l 


ye,d9 

yS,d9 

#3.d9 
d0,vram_buf1+2 
d9,wyel 

yS,d9 

d9,wys1 


wWxSl,d1 
myS1,d2 
Vra 弄 _bufl,al 
#$1a,d9 

#15 


boxline 
#1.anSwer 
Print_menu 


#$71.d9 
# き 15 


mS_X,d9 

#8.d9 

#8.d9 
#$ffTT9999,d9 


5 一 8 


ポップアップ メニ ュー 関数 「POP UP」 


) テ キス トペ ー ジ 1 の 保護 


: ボ ックス の 表示 ( 影 つ き ) 


: 答 え の 初 期 値 


: 最 初 の メニ ュー 表示 


j: マ ウス カー ソル の 
: 表 示 


: マ ウス カー ソル の 
: 最 初 の 位置 の セッ ト 
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moOve. | msS_y,d1l 
ext.1 d1 
add.1 d9,d1 


大 OVeq #$76,d9 


trap #15 
ms_loop moveq  #$75,d9 ) マ ウス 座標 の 読み 込み 
trap #15 
move.| d9,.d1 
andi.| ffff,d1 
move.| dl, 画 ouS_y 
lsr.1 #8.d9 
lsr.1 # き 8,d9 
andi.1 #$ffff,d9 
move. | d9,WouS_X 
move,.| xs,d1 j: マ ウス カー ソル が 
cmp.|  d9,.d1 j メ ニュ ー 内 に いる か 
bhi out_side ji どう か の 判定 
move.|  xe,dl 
C 箇 P. 1 d9,.d1 
bcs out_side 
mmOVe. | mous_y,d9 


move.| ys,d1 


Cmp. 1 d9,d1 
bhi out_side 
move.| ye.d1l 
cmp.1 d9.d1 
bcs out_side 
bra in_side 
out_side move.| ansmer,dl ji: メニ ュー 外 の 処理 
beq mous_btn 
模 OVe. | #9,anSWer 
bsr Print_menu 
bra mous_btn 
in_side move.| ys,d1 j: メ ニュ ー 内 の 負 理 
sub.1 d1,d9 


divu #16,d9 
addq. | #1,d9 
ext.1 d9 
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mous_btn 


erTTOT 





move.| 
cmp.1 
beq 

move, | 


bsr 


moveq 
trap 
andi.| 


beq 


move. 1 
ext.1 


move. | 


moveq 
mOVeq 


trap 


OVe.WW 
胃 OVB. 下 
前 OVB. 四 
WOVe.W 
1ea.1 
moveq 


trap 


moved 
moved 


trap 


WOVe.W 
mmOVe.W 
前 OVG. 皿 
OVe. 還 
lea.1 
moved 


trap 


clr.1 


lea.1 


lea.1 


anSwer,d1l 
d1,.d9 


mous_btn 


d9,answer 


Print _menu 


#$74.d0 
#15 
#$0099ff99,d9 


mS_loop 


anSmer,d9 
d9 


d9,ret_paramrB 


#2.d1 
#$15,d9 
#15 


WXe2,vram_buf2 
Wye2,VFa 因 _buf2+2 
wxS2,.d1 

WyS2.d2 
Vram_buf2,a1 
#$1b,d9 

#15 


# き 1.d1 
#$15.d9 
#15 


Wwxel,vram_bufl 
Wyel,vram_bufl+2 
wmxSl,d1 

wyS1,d2 
Vram_bufl,al 
#$1b,d9 

#15 


d@ 


ret_param(pc),a9 


旬 Sg_error(pc),a1 


っ 】 


ボ ポップアップ メニ ュー 関数 「POP UP」 


: 答 そえ を 記憶 する 


j マ ウス の ボタ ン の 
jiON〆 グ OFF 判定 


:jOFF な ら ル ー プ 


jON の 時 は こち ら 


: 戻 り 値 の セッ ト 


: テ キス トペ ー ジ 2 の 復帰 


: テ キス トペ ー ジ 1 の 復帰 


: 正 常 終了 時 の 処理 
: 戻 り 値 の アド レス を セッ ト す る 


: エ ラー 時 の メッ セー ジア ドレ ス 
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return 


abort 


ofset_adr_xs 


ofset_adr_ys 


ofset_adr_xe 


ofset_adr_ye 


*// / 7 7 7 7 7 / / 7 7 7 7 


Print_menu 


next_menu 


move.| 


move. | 


bra 


move.| 
move.| 
sub.1 
move. | 
sub. 1 
sub. 1 
move.| 


bra 


move.| 
move.| 
sub. 1 
move.| 
sub. 1 
sub.1 
move.| 


bra 


#-1.d9 


erTOT 


#8.mS_X 


check_adr 


#16,ms_y 


check_adr 


maX_X,d9 
xe.d1 
d9.d1I 
WS_X.d り 
d1.d9 
#8.d9 
d9.mS_x 


check_adr 


max_y,d9 
ye,d1 
d9.d1 
mS_y,d9 
d1,d9 
#32,d9 
d9,mS_y 


check_adr 


関数 の 紹 了 


: 引 数 2 が 0 だ っ た ら 


: エ ラー と する 


: 表 示 範 囲 外 の 負 理 
: ル ー チ ン (0 以下 の 負 理 ) 


: 表 示 夢 囲 外 の 処理 
: ル ー チ ン 

: 表 示 範 囲 よ り 大 きい 
場合 の 理 


PRINT MENU //////////7////7// 7 7 / 7 7 / 7 7 7 7 7 7 / 7 7 / 7 7 7 / 7 / 7 7 7 7 7 7 7 


move.1 
moVve・. 
mmOVe. 
moVe. 


弄 OVG. 


前 0OVB. 


str_pointer,pointer 


#1.d4 

answer,d5 
X_POS,temD_X_POS 
y_poS,temp_y_pOS 


number.d3 


d4,d5 
normal 
き 11,.d1 


color_set 


: 文 字 列 を 表示 開始 位置 か ら 
j 配 列 を 立て に 積み 重ね 表示 
: し て カー ソル 位置 だ け 

: 反 転 する 
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normal move.|  #3,d1 
color_set moveq #$22.d9 j: 表 示 色 の セッ ト 
trap #15 
moOve. | temp_x_pos,d1 
move、| temp_y_pos,d2 
mmOVveq #$23.d9 が 98 放 補 下 喘 。 球 
trap #15 
move.| max_len,dB 
nextspc lea.1 SpPc_code,a1l :PRTINT spc$ (max_lex) 
moVeq #$21.d9 
trap #15 
subq. | #1,d6 
bne nextspc 
moOVve. | temp_x_pos,dl 
moOVve. | temp_y_pos,d2 
moved #$23,.d9 jiLOCATE X, Y 
trap #15 
move.| pointer,al jPRINT strings 
moVeq #$21.d9 
trap #15 
subq.| #1,d3 : 指 定 配列 数 か どう か 
beq Print_menu_exit j の チェ ッ ク 
move.| pointer,a1 
add. 1 # き 33,a1 
move.| al,pointer 
move. | temp_y_pos,d2 
addq. | #1.d2 
move.| d2,temp_y_pos 
addq. | #1,d4 
bra next_menu 
Print menu_exit move.| #3,d1 j 表 示 ル ー チ ン の 閑 了 
因 OVeq #$22,.d0 
trap #15 
rts 
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*/ /// 7 / 7 / 7 7 7 / 7/ / TEXT BOX LINE /////7//77/77777777777777/ 


boxline move.| xs,xl j ボ ックス の 表示 
move.| ys,y1 j サ ブ プルー チン 
move.|  xe,x2 j 上 の 横線 
move.| ys,y2 
bsr txtline 
move.| xs,xl j) 下 の 横線 
move.| ye,y1l 
move.|  xe,X2 


move.| ye,y2 


bsr txtline 


addq.1  #2,x1l ji 下 の 横 線 の 影 
addq. 1  #2,x2 
addq. | #2,y1 
addq. | #2.y2 


bsr txtline 

move.| xs,xl : 左 の 縦 線 
move.| xs,x2 

move. | ys,y1l 

move.| ye,y2 

bsr txtline 

move.|  xe,x1 : 右 の 縦 線 
move.|  xe,x2 

move.| ys,yl 

弄 OVe. | ye,y2 

bsr txtline 

addq.1 #2,x1 : 右 の 縦 線 の 彩 


addq. | #2,x2 
addq. 1 #2,y1 
addq. | 2,y2 


bsr txtline 
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*/ / / 7 7 / 7 / / 7 7 7 7 / 


_exit 


-SUDPeT 


txtline: 


tline: 





rts 


TEXT Line routine //////////7/////// 7 7 / 7 7 / / 7 7 7 7 7 7 7 7 7 7 7 7 / 


equ 


equ 


clr.1 


dc.WW 


addq.1 


OOVe. 1 
moVve.| 


move.| 


bsr 


move, | 
move.| 
move.1 
dc.W 

addq,1 


rts 


move.| 
move.1 
move.| 
move. | 
move.| 
因 Ove. | 
sub. 1 


move. | 


sub.1 


move.| 


CmP. 1 
bgt.1 
beq. 1 
move.| 


muls 


$ff99 
$ff29 


-(sp) iL し LINE ROUTINE 
_Super iDDA 法 LINE ル ー チ ン 
#4,SPp 

d9,sspbuf 

usp,a9 


a9,.uspbuf 
tline 
uspbuf,a9 


a9,usp 


SSpbuf,-(sp) 


_SUPer 
4, Sp 

x1,.d9 id9=X 1 

x2,d1 id1=X2 

yl1,d2 id2=Y1 

y2.d3 id3=Y2 

d9.d6 jd6=temp.X1 

d2,.d7 id7=temp.Y1 

d9,.d1 iX2-X1 

dl,deltax jidelta X=work(deltax) 
d2,.d3 7Y2-Y1 

d3,deltay idelta Y=work(deltay) 
#9,d1 jid1=9 ? 

plusx jid1>9 then plusx 
ZeroX jd1=9 then zerox 
#-1,SgnX :WOrk(sgnx)=-1 

#-1.d1 id1=d1*-1 
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bra lcont1 
ZeTOX move.| #9, Sgny :work(sgnx)=9 
bra lcont1 
plusx move.| #1.Sgnx 
lcont1 move, | dl,absdltx 
muls #2.d1 
moVve.| dl,absdltx2 
move.| absdltx,d1 
cmp. 1 # り 9.d3 
bgt. 1 plusy 
beq.! zeroy 
move.1 #-1,Sgny 
muls #-1,d3 
bra lcont2 
Zeroy move. 1 # り 0, Sgny 
bra lcont2 
plusy move,| #1, Sgny 
lcont2 move.1 d3,absdlty 
muls #2,.d3 
胃 OVe.1 d3,absdlty2 
move.| absdlty,d3 
Cmp. | d1,d3 
bgt. 1 bigy 
も igx move.| absdltx,d4 
muls #-1.d4 
ME d d5 
lloop1 ョ ove.| d6,sx 
move. | d7.sy 
bsr pSetxy 
add. 1 SgnX,.db 
add. 1 absdlty2,d4 
blt.1 contbigx 
add. 1 Sgny,d7 
sub. 1 absdltx2,d4 
contbigx addq. | #1,.d5 
cmp. 1 d1,d5 
blt.1 1loop1 
bra lcont3 
bigy move.| absdlty,d4 
muls # き -1.d4 
clr.1 d5 
lloop2 move. | d6,sx 
move. | d7, sy 
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contbigy 


lcont3 


pSetxy: 





bsr 

add. 1 
add.1 
blt.1 
add. | 
sub. 1 
addq. 1 
Cp. 1 
blt.1 


rts 


move. 1 
moVve.| 
mulu 
divu 
mulu 
add. 1 
move.| 
mulu 
move. | 
sub. | 
move. 1 
lsr.1 
move.| 
add. 1 


mmOve. | 


OF. 介 


add. 1 


move. 1 


move.| 


move.| 


rts 


WORK AREA 


dc. 1 
dc.1 
dc.1 


5-8 ポッ プア ッ プ メニ ュー 関数 「POP_ UP」 


psetxy 
Sgny,d7 
absdltx2,.d4 
contbigy 
SgnX,d6 
absdlty2,d4 
#1,d5 

d3,d5 
lloop2 


d6,tempx 
d7,tempy 
#$89,d7 
#16.d6 
#2.d6 
d6.d7 
d7,adrsl 
#8.d6 
tempx,d7 
d6,d7 
#$8099,d6 
d7,d6 
adrsl,d7 
#$E09999,d7 


d7,.a4 
d6, (a4) 


#$29999,d7 
d7,a4 

d6, (a4) 
tempy,d7 
tempx,d6 
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tempy 

x1 

y1 

x2 

y2 

SX 

Sy 
deltax 
deltay 
SgnX 
Sgny 
absdltx 
absdlty 
absdltx2 
absdlty2 


ret_para 因 


mSg_erFOr 


sspbuf 
uspbuf 


number 
maXx_len 
str_pointer 
WS_X 
mS_ ツ 
pointer 
X_POS 
y_POS 
XS 

Xe 

YS 

ye 
OUS_X 
mOUS_y 
anSWer 
stack1l 


dc.1 
dc.1 
性 6s 1 
dc.1 
dc.1 
dc.1 
dc.1 
dc.1 
dc. 1 
dc. 1 
dc.1 
dc.1 
dc.1 
dc.1 
dc. 1 


even 
dc.W 
dc.1 
ds. 1 


dc.b 


dc. 1 
dc. 1 


dc. 1 
dc.1 
dc. 1 
dc.1 
dc.1 
dc. 1 
dc.1 
dc. | 
dc. 1 
dc.1 
dc. 1 
dc. 1 
dc. 1 
dc.1 
dc.1 
dc.1 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 

9 

9 

1 

"Error",9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 





as 


annununununumumunmvmvnumumumumvmvmvnenemumvnemgmvmumumvmvmvmwnumumumvnvmun 5ー8 ミッ プア ッ プ メニ ュー 関数 「 POP_UP」 me 


stack2 dc.1 9 
stack3 dc. 1 9 
temp_x_pOS dc. 1 9 
temp_y_POoS dc. 1 9 
AX_X dc. 1 9 
AX_Y dc. 1 9 
SpPC_code dc.b $29,9 
Wxe1 dc.wW 9 
Wyel dc.W 9 
Wxe2 dc.W 9 
Wye2 dc.W 9 
WxS1 dc.W 9 
WyS1l dc.W 9 
WxS2 dc.W 9 
wyS2 dc.W 9 
vVram_bufl dc.W 9 
dc.W 9 
ds.b 4996 
Vram_buf2 dc.W 9 
dc.W 9 
ds.b 4996 
end 











さて, この 外部 関数 は これ まで の 総決算 的 な も の で す 。 か な り の 数 の IOCS コ ユー ル を 使用 し ,DDA 
法 の ライ ン ル ー チ ン ま で 使用 し て いま す 。 ソ ー ス プロ グラ ム も それ な り に 長い も の で す が , これ 
か ら の 視覚 に 訴え る 新しい 入力 方 法 で は な いで し ょ うか 。 表示 し た な い メ ニュ ー の 項目 を 配列 に モ 
ッ ト し , 指定 し た 項目 数 と 表示 位置 を 設定 する だ け で , マウ ス に より 選択 し た メニ ュー の 番号 が 
返っ て きま す 。 な お , この 関数 を 実行 し て いる と き は , 以前 に テキ スト 画面 上 に 書か れ て いた 女 
字 を バッ ファ に 読み 込み 記憶 し て あり ます か ら , pop_up 関 数 終了 後 は , 元 の 画面 に 復帰 し て いま 
す 。 

pop_up 関 数 を 使用 し た サン プル プロ グラ ム は 第 5 一 7 図 の 通り で す 。 





1999 int x,y,n,bl,br 
1919 dim str st(5) 

1920 st(9)="X-BASIC" 
1939 st(1)=”"X68999" 
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1949 st(2)="Human68k”" 
1959 st(3)=" デ マイコン" 
1969 st(4)="function”" 
1979 st(5)=“"end” 

1989 mouse(9) 

1999 mouse(1) 

1199 msarea(9,9,7567.511) 
1119 repeat 


1129 button() 

1139 mSpoS(x,y) 

1149 n=pop_up(st,6,x,y) 
1159 print n 

1169 button() 


1179 until n=6 
1189 mouse(9) 


1199 end 

1299 func button() 

1210 mhile bl=9 

1220 msStat(x,y,bl,br) 
1239 endwhile 

1249 while bl=-1 

1259 msstat(x,y,bl,br) 
1269 endwhile 


1279 endfunc 











第 5 一 7 POP_UP の サン プル プロ グラ ム 

この 弟 5 一 7 図 の ゲロ グラ ム は , pop_up の 動作 を 確認 する も の で 、 マ ウス を 圧 ク リッ ク す る と 
ポッ プア ッ プ メニ ュー が 現れ ます 。 こ の 時 に 画面 を クリ ア し て な けれ ば , テキ スト 画面 上 に 表示 
きれ て いる 文字 (例え ば , 上 上記 の リス ト 等 ) の 上 に 現れ て , 次 に 左 ク リッ ク す る と マウ スカ ー ソ 
ル が 示し て いる 項目 (メニ ュー) が 選ば れ て , その 番号 が 返っ て きま す 。 ポ ボップ アッ プ メ ニュ ー 
の 外 で な クリ ッ ク す る と 0 が 返っ て きま す 。 

これ で 外部 定義 関数 の 事例 の 紹介 と 解説 を 終わ り ま す が , 次 の 第 5 一 8 図 の リス ト は これ まで 
に 紹介 し た 外部 定義 関数 を 使用 し て 作ら れ て いる テキ スト 画面 の お 絵かき ソフ ト で す 。 第 1 音 か 
ら 解説 し て きた 内 容 っ も ギッシリ と 詰っ な もの で す 。 よ く 理 解 し て X-BASIC の 奥 の 深 さと 秘め た 可 
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RDGmesdsesesenesevseeuseeesiieeneseesst に 8 2RSA2 の の 4 ス zo 関数 | ROBE の 
能 性 に つい て 考え て みて 下さ きい 。 
19 /* 


20 int x,y,mx,my,count,bl,br 

39 dim int xx(2999) ,yy(2999) 

49 dim str a(4)={ "Copy( 大 )", "copy( 小 )", 
59 "Al11 clear" End” }) 
69 screen 2,9,1,1 

79 console 9,31,.9 

89 mouse(9) 

99 mouse(1) 

199 mouse(4) 

1109 mcset() 


120 mscursor(1) 


139 mhile 1 

149 msstat(x,y.bl,br) 

159 if bl=-1 then draw():continue 

169 if br=-1 then pop() 

170 count=9 

189 mSpOS(mx, my) 

190 xx(count) =mx 

290 yy(count) =my 

219 endwhile 

229 end 

239 func draw() 

240 count=count+1 

250 mSPOS(mx,my) 

269 xx(count)=mx 

279 yy(count) =my 

289 tline(xx(count-1),yy(count-1),xx(count),yy(count) , 9) 
290 tline(xx(count-1),yy(count-1),xx(count),yy(count) , 1) 


399 endfunc 

319 func pop() 

329 int x,y,br,bl,v,W 
339 mmScurSor(9) 
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349 msarea(2,2,7609,519) 

359 mSpoS(x,y) 

369 v=pop_up(a,4,x,y) 

370 Switch v 

380 case 1:mmscursOr(2):h_copy(1):break 
399 caSe 2:mmScursor(2):h_copy(9):break 
499 case 3:tcls(-1):break 

410 case 4:ending():break 

429 endswitch 

439 msarea(9,9,757,511) 

440 WScurSor(1) 

4509 repeat 

469 msstat(x,y,bl,br) 

479 until bl=9 


489 endfunc 
499 func ending() 


599 tcls(-1) 

510 console 9,31,1 
520 print chr$(4) 
539 mouse(9) 

549 end 


550 endfunc 
569 func mcset() 
579 di 箇 int pat(32)= て 





580 &B99911Illlllllllll, 
599 &B911991111111l1l111, 
600 &B91I111991111Illlll, 
619 &B1919911911111111, 
629 &B1919911191111111 
639 &B1191111119111111, 
640 &BI191I1llllll91lllll, 
659 &B1119111111191111, 
669 &BI111911111110111, 
679 &B1111191111111911, 
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680 &B1111119111111191, 
690 &B1111111911111191, 
790 &BIIlllllll91111911, 
710 &Blllllllll9119111, 
720 &BIIlllllll1991111, 
730 &B1111l1l11lllllllll, 
740 /* 

759 &B9000099900900000, 
760 &B9110009999999990, 
770 &B9111199999999909, 
789 &B9910011999999990, 
790 &B9919911190999900, 
890 &B99091111110990900, 
810 &B9991111111999999, 
820 &B9999111111199999, 
830 &B9999911111119999, 
840 &B9999991111111999, 
850 &B9999999111111109, 
860 &B0999609911111109, 
879 &B9999099991111909, 
880 &B00990999091109900, 
890 &B9999999999999999 ) 
999 mscset(1, 9,9,pat) 

919 endfunc 











第 5 一 8 図 お まけ の TEXT_DRAW. BAS 


プロ グラ ム の 使用 方 法 

RUN に より プロ グラ ム 実 行 後 . マウ ス を その まま 移動 する と えん び ひつ カー ソル も それ に つれ て 
移動 し ます 。 線 を 引き た いと き は , 左 の ボタ ン で ドラ ッ グ し て いる あい だ 線 を 書く こと が 出来 ま 
す 。 右 ボタ ン を クリ ッ ク す る と ポッ プア ッ プ メニ ュー が 現れ , 画面 の ハー ドコ ピー か , 画面 クリ 
ア か ,。 ブログ ラム 終了 か を 聞い て きま す 。 キ ャ ン モ セル する 時 は , 枠 の 外 で ボタ ン を 押し て 下さ い 。 
な お , テキ スト 画面 の ハー ド ュ ピー を 実行 きせ る 外部 定義 関数 (第 5 一 9 図 ) を おまけ と し て 付 
け 加 を て あり ます か ら 。 第 5 一 8 図 の サン プル プロ グラ ム を 実行 する 前 に 、basic.cnf の 中 に 定義 
し て お いて 下さ きい 。 


311 


ww 第 5 章 X-BASIC で 役立つ 外部 定義 関数 ・ 事 例 集 wwmawvmwmawmawunan 








本 玉 本 本 キキ キキ 本 本 本 本 本 本 玉 本 本 本 本 キキ 本 本 本 本 本 本 本 本 本 李 玉 玉 本 
キ Hard copy for X68990 

キ presented by CZ masters club 

キキ キキ 本 本 本 本 本 キキ キキ キキ キキ キキ 本 玉 本 本 本 玉 本 本 本 本 本 本 本 玉 本 本 本 本 本 


char_val eqUu $9994 
int_ret equ $8991 
adr_init dc. 1 return 
adr_run dc. 1 return 
adr_end dc.1 return 
adr_syste 箇 dc. | return 
adr_break dc.1 return 
adr_input dc. 1 return 
adr_reserve1 dc. 1 return 
adr_reserve2 dc. 1 return 
adr_token dc.1 token_table 


adr_parameter dc. 1 Param_adr_table 


adr_exec dc. 1 exec_table 

FeSerVve dc. 1 09, 9, 9,9,9 

token_table dc.b "h_copy",9,.9 
even 


param_adr_table dc.| param table 


Param_table dc.W char_val,.int_ret 
・even 

exec_table dc. 1 h_copy 
・even 

h_copy: move. | 12(sp),d9 
trap #12 
clr.1 d9 
1ea.1 ret_para 和 (pc),a9 
lea.1 胃 Sg_error(pc),a1 
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: こ れ は 、 コ ピー キー 処理 を 行う も の で す 





ーー 


mumunumunvmvnvmvnvmvnvmvnvnvnvnvnvnvnvmvnvmvnunwnvmwnumvnunwnvmwnunvmvmvmvmymvwwn うーS ポップアップ メニ ュー 関数 「POP_UP」 ee 


return rts 


・eVen 


Tet_para 箇 dc.W 9 


dc.1 1 


mWSg_errOor dc.b "Error",9 


・end 








第 5 一 9 お まけ の 外部 定義 関数 


アル ンチ 人 ン 8 シン オー ルン 行 番号 


行 番号 は 本 文中 に も ある よう に 1 か ら 65535 ま で の 整数 が 使用 出来 ます 。 プ ログ ラム は , この 行 番号 
に そっ て 行 番号 の 小さ い 順に 実行 し て いき ます 。 制 御 構造 命令 等 で 行 番号 を 無視 し た 順序 で プロ グ 
ラム を 進め る こと が 出来 ます 。 また, 行 番号 は ダイ レク ト 命 令 か 、 プ ログ ラム か を 解釈 する た め の 大 
切な も の で す 。 隣り 合う 行 番号 に 割り 当て た 数 値 が 1、 2。 3…… と 並ん で いる と 整然 と し て いて 和美 
し 見え ます が, も し , プロ グラ ム の 変更 等 が あり 行間 に 別 な 行 を 挿入 し な けれ ば な ら な く な っ て も , 
これ で は 新しい 行 の 挿入 が で き な い の で 行 番号 は どき る だ け 10, 20, 30…… と し で FE さい 。 る で 15 
と か 25 と いう 行 番号 を 追加 する こと が で きる よう に な っ た 訳 で す 。 行 番号 を 追加 し た 後 は , RENUM 
コマ ンド で 行 番号 を 整理 し て お く の も 忘れ な いで 下さ るい 。「 こ れ で よし 」 と 言う まで は , 行 番号 は どん 
な に バラ バラ で も 構わ な い の で すか ら …… 。 

それ か ら RENUM で 注意 し な けれ ば な ら な いこ と に , GOTO, GOSUB の 飛 先 番地 に つい て は 新 し 
い 行 番号 を 割り 当て て くれ ませ ん (下図 参照 )。 














RENUM する 前 RENUM 後 
10 INT AB 10 INT AB 
15 PRINT A.B 20 PRINT A.B 
20 A= ニ A 十 1 :B=B 十 2 30 A= ニ A 十 1:B=B 十 2 
30 GOTO 15 40) GOTO 15…… 飛 先 が 変更 きれ て いな い 











そん な 理由 か ら も この GOTO,GOSUB の 使用 は や め た 方 が いい で し ょ う 。 
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あふ れる クリ エイ ティ ブ マ イン ドーーNEW Z-BASIO 搭 載 。 





NEW Z-BASIC 搭 載 
多 色 グラフィック. カラー 画像 デジ タイ ズ 、 ス テレ オ FM 音源 、 バ ンク メモ リ 
) に サポ ー ト する AV 指向 の 高 水準 
SIC で も グラ ブック 用 関数 、X68000 と MML 


を は じ め 使い 込む ほど に 凄 き が わか る パワフル な BASIC を 搭載 し まし た 


先駆 の アー ト 機 能 
量子 化 、 モ ザイ ク 、 反 転 な ど ト リッ ク 取 り 込み 処理 を サポ - 
画像 デジ タイ ズ 機 能 標準 装備 。 さ と 合成 、 
スス ー パ ー イ ン ボ ー ズ 、4.096 色 対応 ッ パ 機能 、8 重 和音 の 
ステ レオ FM 音源 。 先 駆 の Z ア アビ リティ が パソ コン クリ エイ タ ま 了 し ま 
メイ ン メ モリ 128KB 標 準 実装 ( NEW Z-BASIC て 最 5K パ 
サポ ー ト ) し た 大 容量 設計 @1M バ イト フロ ッ ピ ー2 基 搭載 @JIS 
水準 漢字 、「> ー ザ ー 辞 書 」 標 準 装備 @ 簡単 操作 
ス 標準 装備 @X1 タ ー ボ シリ ー ズ の 豊富 な ソフ ト 資 産 が 活用 て 


表 信 ツー ル * の サポ ー ト で ソン パ ソコ 








合コン パチ の 
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m の 高 精細 カラ ー デ ティ スプ レイ 


ン ィ ヾ ンジ コンテ レビ ナル コン c タ + キー ボー ド CZ-88 1C -BK( プ ラン ク ) 標 誰 価格 179。 800 戸 
14 茎 ディ スプ し ヒ Z-880D-BK( プ ラッ ク ) 標準 価格 109. 800 円 


グセ ー 災 杯 式 会 社 s し 事業 乏 4 軍人 162 東京 所 
「 Se 電 濾 新聞 社 各 141 
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